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ABSTRACT 


This thesis presents a fully developed, tactically 
oriented computer aided mission planning system for the A- 
7E aircraft. The system is designed to be extremely easy 
to operate by someone with no computer experience, and is 
'a replacement for 53 NATOPS performance charts that are 
most applicable to flight and mission planning. High 
altitude performance, as well as low altitude and maximum 
range performance, are available. Tactical navigation 
routes may be entered, edited, and saved in a disk file. 
Navigation computations are linked with aircraft 
performance to provide printout of a completed mission 
planning jet log. 

Numerical techniques for obtaining analytical 
expressions from chart and tabular data included multiple 
linear regression analysis, curve fitting, and cross 
plotting of regression coefficients. The computer program 
results have been correlated with NATOPS data and actual 
flight test, and have been found to be highly accurate. 
The program is designed to be run on the IBM PC/XT/AT and 
compatible computers with a minimum of 256K memory 


available. 
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Neither the U.S. Navy nor anyone else who has been 
involved in the creation, production, or delivery of this 
program shall be liable for any direct, indirect, 
consequential, or incidental damages arising out of the 
use, the results of use, or inability to use such product. 
Complete and thorough preflight and tactical planning is 
the responsibility of the officer in charge of such 
activities, and should be accomplished using accepted 
techniques and the appropriate officially approved 
publications. This program is a planning aid and а11 


computed solutions should be carefully validated. 
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TT INTRODUCTION 


The objective of this thesis was to prođuce a fully 
developed and correlated, computer based mission planning 
system. Current mission planning computations are done by 
hand calculation with aircraft performance data derived 
from graphical interpretation of NATOPS chart 
presentations. That method is slow and generates solutions 
which may contain significant errors. А class of sixteen 
prospective squadron commanding officers attending a one- 
week Command Safety Course at the School of Aviation 
Safety, Naval Postgraduate School, Monterey, California, 
was asked to complete a typical mission planning problem 
The results were that the correct answer was not achieved 
by any member of the class. The range of solutions was 336 
۰۰۰۰ ۰۶ت‎ 66۰17 spread about the correct answer of 538 nm. 
The correct answer was achieved only by the class 
instructor after a measured 16 hours of effort with the 
NATOPS manual [Ref. 1]. 

A study by the Vought Corporation to evaluate the 
feasibility of a computer based flight planning system 
resulted in a recommendation to the Naval Air Developement 
Center (NADC), Warminster, Pennsylvania, that such a 
System would be feasible and would result in fuel savings 


as well as increased accuracy in the mission planning 
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areas (Ref. 2]. In addition, Hill [Ref. 3] clearly defines 
the need for accurate aircraft performance data to be 
available in order for strike planners to plan safe and 
tactically effective long range missions of 800 to 1200 nm 
radius. These missions are complex evolutions and may be 
Ее compromised by a false need for additionam 
support aircraft such as electronic countermeasures, radar 
surveillance, and tanker assets. A recent article (Ее. 
4:pp.69-73], detailing a report on the differences between 
Navy and Air Force aviation operations was completed in 
May 1985 as a result of a study directed by the Vice Chief 
of Naval Operations on this subject. This report directly 
addressed a major difference regarding aircrew duties and 


aircrew fatigue: 


The familiar complaint of excessive collateral 
duties was of major interest to the exchange pilots. 
There was unanimous agreement that in the Navy these 
non-flying tasks impede the development of flying 
skills, particularly in the junior ranks, while 
contributing to fatigue, hasty flight planning, and 
sketchy briefings and debriefings. In the Air Force, 
collateral duties are directly related to flying and 
help fulfill requirements for professional development 
of the officer and the aviator. .. .Navy aircrews 
devote less time to flight planning than Air Force 
fliers. Although briefings and post-flight debriefings 
are valued in both services, Navy briefings were 
considered non-standard when compared to those in the 
Air Force. Again, collateral duty responsibilities were 
believed to detract from better fight planning and 
briefing in the Navy. The Air Force is more strictly 
regulated than the Navy. The Navy system fosters the 
bending of rules to fit operational commitments, a 
practice which compromises safety, and promotes a side 
effect--tacit approval of nonadherence to regulations. 

NATOPS was created in 1961 and is credited with 
being a milestone in naval aviation safety improvement. 
Yet, the study group found that NATOPS is less effective 
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Ipu promoting safety than the Air Force's Standardization 
and Evaluation (Stan/Eval) program. Overall, the NATOPS 
program is sound, but enforcement of the procedures is 
occassionally weak. Furthermore, the Air Force's Eval 
checks are more stringent than the Navy's NATOPS checks. 
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II. APPROACH TO ۱ ٢ 


A. BACKGROUND 

Development of a computer based mission planning 
system required examining constraints in hardware/software 
performance and availability, and in deriving the 
necessary mathematical equations and algorithms. Until 
1984, the primary consideration in developement of a 
computer based system was the high cost and limited 
performance of hardware. Since 1984, these problems have 
been eliminated апе ко Ene advance Іп шеке CONGUE dE 
technology. Central processing units have tremendous speed 
and capability, and additional memory chips have become so 
inexpensive that one megabyte of Random Access Memory 
(RAM) iS common on many personal computers. As a result of 
application programs written for users with a broad range 
of technical backgrounds, and development of very powerful 
languages, software for personal computers has become, in 
may ways, more usable than main frame programs. Many main 
frame capabilities now reside also with the personal 
computer. 

Several attempts at deriving adequate mathematical 
equations that represent the NATOPS curves have resulted 
with only partial success. Koger [Ref. 5] employed an 
extension of the technique developed by Siegel [Ref. 1] to 


derive mathematical expressions through a least squares 
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fit modeling method for takeoff, maximum range, maximum 
endurance, and low level aircraft performance. These 
equations, however, do not fully describe the entire 
NATOPS chart for which they were developed. Koger [Ref. 5] 
explained the difficulties encountered with charts 
containing different families of curves, non-linear 
coefficients required in regression analysis, and 
regression of curves that were not well SOE: 
Consequently, these equations may only be accurately 
applied over a limited range of mission parameters. Hill 
(Ref. 3] developed equations and software for computing 
aircraft performance during the climb, cruise, and descent 
mission phases. One of the two primary limitations to 
Hill's program is its reliance on some equations 
applicable only to limited areas of the chart for which 
they were intended to describe. A second primary 
limitation is the program's dependance on published NATOPS 
drag count data, computed as a function of very specific 
aircraft loading information which must be looked up and 
supplied by the user. Obtaining this input data is a time 
intensive exercise, the results of which are frequently 
not completely accurate. Recent investigation of NATOPS 
drag count data by Naval Weapons Center, China Lake, and 
the Vought Corporation has revealed an underprediction of 
miesactcual drag counts by 25 to 30 counts, or 


approximately 25% error in total drag. Actual aircraft 
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installations with flight test data show higher drag and 
fuel requirements than those computed from NATOPS [Ref. 
6]. 

In support of a contract between NADC and Vought 
Corporation to develop the Flight Performance Advisory 
System (FPAS) for Navy A-7E aircraft, Vought undertook a 
two year program, from December 1980 until January 1982, 
designed to develop flight performance algorithms and 
equations which could be programmed into the TC-2A 
Navigation and Weapons Delivery Computer (NWDC) on-board 
the A-7E aircraft [Ref. 7]. The study utilized actual 
aerodynamic and propulsion data bases, accounted for 
nonstandard atmospheric conditions, included algorithms 
for computation of cockpit instrument readings (indicated 
altitude, airspeed, and mach number), and allowed 
computations for partial power climbs and descents. 
Results from the generated equations and algorithms were 
correlated and verified within 1$ of those from a more 
precise program running on the Cyber 175 computer. This 
study did not evaluate takeoff performance. 

As a foundation for the mission planning system, 
accurate equations were required which described the full 
range of each applicable NATOPS chart for all mission 
areas. These mission planning areas were the takeoff, 
climb, high and low level cruise, descent, maximum range 


profile at maximum range altitude, maximum range possible 
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at an alternate altitude, high and low level navigation 
route computations, and the means to edit and store 
tactical navigation route structures. Complete aircraft 
performance data for each mission area, and coupled with 
the navigation route data to produce completed flight log 


cards, was the goal of this study. 


ЕП EQUIPMENT 

The work in obtaining satisfactory equations from 
NATOPS data and charts was performed on an IBM PC personal 
computer using relatively sophisticated multiple 
regression software [Ref. 8], and on the Hewlett-Packard 
HP-41 hand calculator using a set of four statistical 
regression programs written by the author. The mission 
planning software was developed with the author's 
equations obtained from statistical regression analysis of 
20 NATOPS graphs for the takeoff, climb, and optimum 
performance mission phases. Each graph contained up to 9 
curves and each curve was a function of primarily four 
independant variables. Additional equations were obtained 
from statistical regression and aerodynamic analysis by 
Vought [Ref. 7] which included another 33 NATOPS graphs 
for the cruise, descent, and optimum performance mission 


phases. 
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III. SOLUTION 


A. PROCEDURE 

The general procedure for statistical analysis of 
NATOPS graphical data is multiple regression. Each curve 
on a chart is regressed according to the same family of 
curves. The coefficients obtained in the equations are 
plotted against a common parameter of significance present 
in the initial graph. Equations are obtained to solve for 
the coefficients as a function of independant variables, 
which are then inserted into the equation of the family of 
original curves containing other independant variables. 
The result is a single equation to compute a dependant 
variable, and which contains all the other independant 
variables present in the original plots. This technique 
was investigated by Siegel (Ref. 1] and is clearly 
described by Koger (Ref. 5]. The technique is one of many 
numerical methods that may be applied to the problem of 
multiple regression of graphical data, however, this 
technique is not clearly presented in texts and is not a 
common or popular method of analysis. The requirement for 
application of computer methods in the analysis has been a 
factor in its lack of popularity. The multiple regression 
model used is a standard model and is described in Park 
(Ref. 8] and Ott/Hildebrand (Ref. 9]. Complete 


descriptions of this basic model and other techniques are 
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contained in ап excellent text by Draper and Smith [Ref. 
IO. 

Many of the NATOPS charts are plots of a dependant 
variable as a function of up to four independant 
variables. This complicates the multiple regression 
procedures, but is quite manageable. A number of technical 
difficulties can, however, significantly reduce the 
effectiveness of this method of analysis. The most 
prevalent problem is a plot of data in which all curves 
are not of the same family. This is evident in the maximum 
refusal speed chart for takeoff factor shown in Figure 1, 
in which the nature of the plotted data is clearly not 
consistant or of the same family. In these curves, 
additional numerical and statistical analysis is applied 
using computer methods, and a family is found for the 
curves that adequately describes them entirely. One method 
is to plot the graphical data using a reversed coordinate 
System and carefully chosen unit gradations, then to apply 
the multiple regression procedure to this "new" graph. 
Occassionally this resulted in a set of original curves 
more well behaved for analysis and closer to a common 
family of curves. Simply adding terms to the initial 
regression model is not satisfactory and, in fact, 
complicates the statistical analysis by positively 


influencing computed parameters indicative of how good a 
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model is. This results in a final set of equations which 
do not describe the original graphical data. 

Obtaining accurate mathematical equations was a basic 
and preliminary requirement for addressing the problem 
which was the objective of this thesis. Developement of a 
fully functional computer aided mission planning program 
required accurate equations for the entire range of 
possible aircraft configurations, and the entire range of 


53 NATOPS graphical plots. 
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LV RESULTS 


А. DISCUSSION 

The final equations obtained from the author's 
analysis and the work by Vought [Ref. 7] were used in the 
programming effort, and are accurate within 1$ of NATOPS 
results for most operational aircraft configurations. At 
extremes of either environmental or aircraft parameters, 
the final mission planning program yields results within 
2$ of NATOPS results. It should be pointed out that most 
of the NATOPS charts for the A-7E aircraft can not be read 
to within 2$ and that this degree of accuracy over the 
entire operating range of the aircraft ШЕ considered 
acceptable. 

The result of the programming effort is a mission 
planning system which enables pilots with no experience in 
computers to obtain complete aircraft performance for all 
mission phases. Navigation routes may entered, edited, and 
stored on disk. These may be called later to speed the 
planning process. High or low navigation route data is 
combined with the appropriate performance computations, 
and the system will produce a completed jet log for the 
high and low mission areas. The experimental planning 
exercise described by Siegel [Ref. 1] required 16 hours of 
work with the NATOPS charts to obtain a correct solution. 


This same problem can be solved using the mission planning 
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system software developed in this thesis, and requires 
approximately 30 minutes. This is a decrease in mission 
planning time of 96.9 percent. All results can be printed 
manually or automatically, an option selected by the user. 
In order to fully describe the software to users, and 
explain each of the program's features, options, and logic 
flows, a complete user manual has been written as Appendix 
B. A feature of this manual is a quick start card which 
allows users to immediately begin planning without reading 
the documentation. The program has been written with on- 
screen help in order to accomodate this user approach. 


Each data input/output screen is detailed in Appendix B. 


B. CORRELATION 

Computed numerical results have been compared with 
four separate sources and have been found to be very 
accurate to over the entire operating envelope of the 
aircraft. Program computations were verified with 
numerical examples іп the Vought work [Ref. 7], manual 
data extraction from the NATOPS charts, performance 
computations made with the Navy's Optimum Path Aircraft 
Routing System (OPARS) [Ref. 11], and fight test data 
obtained from an informal analysis conducted by a U.S. 
Navy test pilot and Naval Weapons Center, China Lake, 


California. 
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У. CONCLUSIONS AND RECOMMENDATIONS 


This mission planning system software reduces planning 
time significantly, and allows missions to be planned with 
increased safety and mission effectivenenss. A broad range 
of tactical options can be studied for tradeoffs in 
mission requirements, and can enable the planner to 
quickly compute requirements and a jet log for any of the 
input routes, or any of the routes on file. These tactical 
options may be required for consideration due to changes 
in the assigned targets, current intelligence regarding 
enemy target location or defensive placement of anti- 
aircraft weapons, or last minute changes in political 
cooperation or policy which may dictate severe changes to 
operational planning. 

This program will allow pilots and aircrews to spend 
nore time studying the target, briefing the mission, and 
reviewing complex aircraft emergency procedures, and 
significantly less time tracing through NATOPS charts for 
basic aircraft and mission performance data. 

A single recommendation is necessary. Computed 
performance data under a broad range of aircraft 
configurations and environmental conditions should be 
verified. This can be most economically accomplished if 


each A-7E squadron and each functional wing were given a 
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copy of the program and the user manual, and kept a record 
of computed performance versus actual performance. The 
program should also be distributed to Air Force Tactical 
A-7D units, and Air National Guard A-7D units. Although 
the Air Force A-7D is lighter than the Navy A-7E, the 
program is written to accomodate input weights, therefore, 
computed aircraft performance should be very close to that 
actually experienced by Air Force and Air National Guard 


unite.: 
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АРРЕМОТХ А 


TACTICAL COMPUTER AIDED MISSION PLANNING SYSTEM 
SOURCE CODE 


' — TOPHALF - 5/15/1986 - 22:17:18 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
'TACTICAL COMPUTER AIDED MISSION PLANNING SYSTEM 
ЖВИПЕІШТЕМ ВҮ LT. CHRIS NUTTER, USN 

' AERONAUTICAL ENGINEERING DEPT. 

' NAVAL POSTGRADUATE SCHOOL 

' MONTEREY, CALIFORNIA | 

| با‎ e ee de de de de de de e de e de de de de de de e de de de de de de de de de de de e e e e de de e de de de de de de e de de ما ما‎ e مل بل مل‎ 
COPYRIGHT.SSS$z"(C)Copyright 84,85 The ае EON UID 
Company Of New York" 

10 DIM VL.SS$(100), LO.SS£(100,2), LE.SS£(100), 
TY.SS$(100), PIC.SS$(100) ,RG.SS(100,2), CL.SS%(100,2), 
SPECCHR.SS% (100) 

11 DIM TODATA(4,3),FUELFLO(18,3),THRUST(9,2) ,W(9) , F(3) 
12 DIM CLBDATA(8),DESCH(4),DESDATA(4) , AZ (3) 

14 SCREEN 0,1,3,0:CLS:SCREEN 0,1,2,0:CLS:SCREEN 
0,1,1,0:CLS:SCREEN 0,1,0,0:CLS 

15 PRINT "-L-NAVDATA/" 

16 PRINT "~C=ALL/" 

17 TOTALDIST=0 

20 KEY OFF: SD.SS%=1 : NUMSCR.SS%=3 : BLNK.SSS=SPACES (78) 
30 GOSUB 62890 'Test For Mono OR Color Display 

40 COLOR 15,1,4 

45 GOSUB 7700 

50 'BRING UP XCINPUT.SCR (XCFORM.BAS) FOR DATA ENTRY 

51 SCR.SS%=1: INIT.SS%=-1:GOSUB 60000 

55 SCREEN 0,1,0,0 


ONA UP WNE- O 


СОСОВ 180 ' TAKEOFF 
PERFORMANCE 

ERMGOSUB 1930 ' CLIMB 
PERFORMANCE 


90 'GOSUB TO CRUISE PERFORMANCE WITH AUTOCALC OF DESCENT 
GROSS WT (DGW) 


Б СО5ТВ 3060 ‘CRUISE 
PERFORMANCE 

100 GOSUB 5120 TDESCENT 
PERFORMANCE 


103 DIM NAVDATA(9,9),COORD(9,3),WAYPTS(9,3):CLS:COLOR 
15,1,4:LOCATE 1,1:PRINT "~W=MPOPTION/":SCREEN ,,3,0:INPUT 
"и SELECTFLAGS 
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104 SCREEN ,,0,0 

105 IF SELECTFLAG%=1 THEN SCR.SS%=2:INIT.SS%=-1:GOSUB 60000 
106 BOB1=FRE (0) :BOB2=FRE ("") :IF SELECTFLAG%=1 THEN CHAIN 
"BOTHALF", , ALL 

107 IF SELECTFLAG%=2 THEN CHAIN "BOTHALF", , ALL 


109 IF SELECTFLAG%=3 THEN GOTO 130 'SHOULD 
EXIT TO DOS : 
125 'GOSUB 8000 ' PRINT 


COORD COMPUTATIONS 

130 CLS:COLOR 15,070: CLS Ты لن‎ 

201۱ 

140 OPTALT1-EXP(11.0605-(5.53315E-08*(TOGW-800) *DC)- 
(1.25963E-05* (TOGW-800) )-(4.57508E-14* (TOGW-800) * (DC^3) )) 
150 SCEILING-((-.64*((TOGW/1000)-.8))-«((- 

.0413%*рс) +60.2677) ) *1000 

160 СЬВРАТА (7) =5СЕТЬТМС 

170 CLBDATA(8)=OPTALT1 

180 '***x****** SUBROUTINE TO COMPUTE TAKEOFF PERFORMANCE 
хххххххххх 

183 ОМ ЕККОК СОТО 8000 

185 COLOR 15,1,4 

190 CLS 

200 LOCATE 5,29,0 

210 PRINT "TAKEOFF PERFORMANCE" 

220 ТОР + 3 

230 LEFT = 27 

240 WIDTZ = 23 

250 HEIGHT = 5 

260 GOSUB 7200 'box the 
title 

270 LOCATE 10,5,0 

280 PRINT "TAKEOFF DATA WILL BE COMPUTED FOR THE FOLLOWING 
CONDITIONS: "' 

290 PRINT 

300 PRINT TAB(5) "TAKEOFF GROUND ROLL DISTANCE AND TAKEOFF 
SPEED ----- E 

310 PRINT TAB(10) "* LEVEL, HARD SURFACE RUNWAY" 

320 PRINT TAB(10) "* MILITARY RATED THRUST" 

330 PRINT TAB(10) "* 1/2 FLAPS" 

340 PRINT TAB(10) "* ZERO HEADWIND" 

350 PRINT TAB(10) "* CG: 26$ MAC" 

360 PRINT 

370 PRINT TAB(5) “MAXIMUM REFUSAL SPEED 2---- " 

380 PRINT TAB(IO) "X ۷۵٦ه‎ 

385 IF OUTPUT-1 THEN GOSUB 7560 

' AUTO PRINTSCREEN 

390 LOCATE 24. 27,0 

400 PRINT "PRESS ANY KEY TO CONTINUE" 


410 АМ5$ = ТМКЕУ$: IF ANSS$ = "" THEN 410 
420 CLS 
430 А = .2031573 + ((7.117837 * 10^-4) * PA) 
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440 В + (4.317391#107-4) - ((2.457174#107- 
5)*PA)-((6.404097*10^-9) *PA^2) -((4.946386*10^-13) *PA^3) 
450 С = (5.22911#107-4) + ((2.528256#107-7) «РА) - 
((5.882059*10^-11)*PA^2)-((5.136734*10^-15) *PA^3) 

460 GUIDE] = A + (В*ТЕМР) + (C*TEMP^2) 

470 TOFACTDD = ((GUIDE1 - 14)/(-1.75))+1.8 

480 TOFACTNDD = ((GUIDE1] - 11.8)/(-1.478))+1.8 

490 GRDD = (TOFACTDD-(13.13556-((1.564114*10%- 

5) *TOGW)))/(6.22883*10^-3-((6.817641*10^-8) *TOGW) - 
(166.1427/TOGW) ) 

500 GRNDD = (TOFACTNDD-(13.13556-((1.56411*10^- 

5) *TOGW) ))/(6.22883*10^-3-((6.817641*10^-8) *TOGW) - 
(166.1427/TOGW)) 

510 IF GRDD = 8000 THEN GRDD = GRDD - 100 

520 IF (GRDD > 8000) AND (GRDD <= 9000) THEN GRDD = GRDD - 
200 

530 IF (GRDD > 9000) AND (GRDD <= 10000) THEN GRDD = GRDD - 
300 


540 IF (GRDD > 10000) AND (GRDD <= 11000) THEN GRDD = GRDD 
- 400 
550 IF (GRDD > 11000) AND (GRDD <= 12000) THEN GRDD = GRDD 
- 500 
560 IF (GRDD > 12000) AND (GRDD <= 13000) THEN GRDD = GRDD 


- 600 

570 IF GRDD > 13000 THEN GRDD = GRDD - 700 

580 IF GRNDD = 8000 THEN GRNDD = GRNDD - 100 

590 IF (GRNDD > 8000) AND (GRNDD <= 9000) THEN GRNDD = 
GRNDD - 200 

600 IF (GRNDD > 9000) AND (GRNDD <= 10000) THEN GRNDD = 
GRNDD - 300 

610 IF (GRNDD > 10000) AND (GRNDD~<= 11000) THEN GRNDD 
GRNDD - 400 

620 IF (GRNDD > 11000) AND (GRNDD <= 12000) THEN GRNDD 
GRNDD - 500 

630 IF (GRNDD > 12000) AND (GRNDD <= 13000) THEN GRNDD 
GRNDD - 600 

640 IF GRNDD > 13000 THEN GRNDD = GRNDD - 700 

650 УТО = 75.15719+((2.21804*10^-3) *ТОСИ) + ((1.967234*10^- 
9) *TOGW^2) 

660 D + (-11.45925) + ((3.237367#107-4) «ТОСИ) 

670 Е = (12.2164)-((1.72912*10^-4) *ТОСМ) 

680 GUIDE2DD - EXP ((TOFACTDD - D)/ E) 

690 GUIDE2NDD - EXP ((TOFACTNDD - D)/ E) 

700 VREFDD = ((6.000001E- 
04*RLENGTH+6.8704) *GUIDE2DD) +(.0031*RLENGTH) +59.6956 

710 VREFNDD = ((6.000001E- 
04*RLENGTH+6.8704) *GUIDE2NDD) + (.0031*RLENGTH) +59.6956 

720 IF RLENGTH <= 12000 THEN VREFDD = VREFDD - 3 

730 IF (RLENGTH > 12000) AND (RLENGTH <= 13000) THEN VREFDD 
= VREFDD - 4 

740 IF RLENGTH > 13000 THEN VREFDD = VREFDD - 6 
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750 IF RLENGTH = 


760 


ДЕ 


VREFNDD - VREFNDD - 4 


12000 THEN VREFNDD - 
(RLENGTH » 12000) AND (RLENGTH «- 13000) THEN 


MEEEPNIID 9 


770 IF RLENGTH > 13000 THEN VREFNDD = VREFNDD - 6 
780 TODATA(2,2) = GRDD 

790 TODATA(2,3) = GRNDD 

800 TODATA(3,2) = VTO 

810 TODATA(3,3) = VTO 

820 TODATA(4,2) = VREFDD 

830 TODATA(4,3) = VREFNDD 

840 ! 

850 'ECHO THE INPUT DATA AND PRINT THE COMPUTED TAKEOFF 
PERFORMANCE 

860 ' 

870 CLS 


880 LOCATE 4,10: 


890 LOCATE 6,10: 
USING "#######"; TEMP; 


PRINT 


PRINT “INPUT DATA: 
"RUNWAY TEMPERATURE 


="; + PRINT 


ООО PRINT." DEGREES 2111 ٢۴ ا‎ 

910 PRINT TAB (TO 6 ۶ Е =", PRINT USL, 
"ПЯНЯНЯН";РА; 

9 ۰ 

930 PRINT TAB(10) "TAKEOFF GROSS WEIGHT - ";ТОСИ;" 185." 
940 PRINT TAB(10) "RUNWAY LENGTH = "SRLENGTH;" БЕР 
950 LOCATE 11,10: PRINT "COMPUTED TAKEOFF PERFORMANCE 

960 LOCATE 13,31: PRINT "WITH DOUBLE DATUM" SPC(5)) Wiles 
DOUBLE DATUM" 

970 LOCATE 15,10: PRINT “TAKEORE (7٦0 


980 PRINT TAB(10) "GROUND ROLL" SPC(16) "FEET" SPC(19) 

n FEET" 

990 PRINT TAB(10) "TAKEOFF SPEED" SPC(14) "KIAS" SPC(19) 
"KIAS" 

1000 PRINT TAB(10) "REFUSAL SPEED" SPC(14) "KIAS" SPC(19) 
"KIAS n 

1010 LOCATE 15,31: PRINT USING "##.#";TOFACTDD 

1020 LOCATE 15,53: PRINT USING "##.#";TOFACTNDD 

1030 LOCATE 16,31:PRINT USING "####";GRDD 

1040 LOCATE 16,53:PRINT USING "####":GRNDD 

1050 LOCATE 17,31:PRINT USING "####":VTO 

1060 LOCATE 17,53:PRINT USING "####";VTO 

1070 LOCATE 18,31:PRINT USING "####";VREFDD 

1080 LOCATE 18,53:PRINT USING "####";VREFNDD 

1090 TOP=10 

1100 LEFT=7 

1110 WIDTZ=68 

1120 HEIGHT=9 

1130 GOSUB 7200 

1135 IF OUTPUT=1 THEN GOSUB 7560:LPRINT CHR$(12) 


' AUTO PRINTSCREEN 


1150 LOCATE 24,27,0: PRINT “PRESS ANY KEYTTO СОЕ 
1160 ANSS=INKEYS$:IF ANSS= "" THEN 1160 
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леко О 
E730 
1940 
9250 


RETURN 
CLS 
DC = (DC7 + DC8)/2 


S = INT(403.56 - (.79075*DC) + (.0011382#0С72) - 


(4.1018E-07*DC^3)) 


1960 CLBDATA(1)=s 
1970 IF DC > 150 THEN M = .86 - (.0021634*DC) + (7.6582Е- 
O5*DC’2) - (1.1344E-06*DC‘3) + (7.2125E-09*DC*4) - 


(2.3035E-11*DC*5) + (3.6588E-14*DC*%6) - 


1980 
1990 


ABS(. 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


(2.3062E-17*DC^7) 
IF DC » 150 THEN M - M*1000 

IF DC » 150 THEN M = INT(M)/1000 ELSE M = 
0052*(DC-150)) + (.0044*DC) + .04 

CLBDATA (2) =M 

CLBDATA (3) =HCRUISE 

! 


'ххххх COMPUTE THE CLIMB 

! 

HCRUISE - HCRUISE/1000 

A — 406.9539*(HCRUISE^-.9542) 
p l SE < ЗО THEN B = =.2384*HCRUISE + 29.6697 
IF (HCRUISE >= 30) AND (HCRUISE < 35) ТНЕМ B = - 


ТІМЕ ххххх 


.6089%НСКОІСЕ + 40.9294 


2090 IF HCRUISE >= 35 THEN B = -1.1572*HCRUISE + 60.1206 
2100 INDEX = EXP(((TOGW/1000) - A) /B) 

2110 IF HCRUISE < 5 THEN INDEX = .225 

2120 IF (HCRUISE>5) AND (HCRUISE<7) THEN INDEX = INDEX + 
(INDEX/2) 

2130 IF (HCRUISE >= 7) AND (HCRUISE < 30) THEN INDEX = 
INDEX - .15 

2140 IF HCRUISE > 32 THEN INDEX = INDEX + .35 

2150 IF DC <= 100 THEN TIME = 

((.0155*DC) +2.4955) * (INDEX* ((.0015*DC)+.9945) ) 

2160 IF DC >= 200 THEN TIME = 
((.0076*DC)+4.0455) * (INDEX* ((.0015*DC)+.9945) ) 

2170 IF (DC > 100) AND (DC <= 150) THEN TIME = 
1.3532*EXP(((.004*DC)+.4495) * INDEX) 

2180 IF (DC > 150) AND (DC < 200) THEN TIME = (- 
.0027*DC+1.7806) *EXP(((.004*DC)+.4495) * INDEX) 

2190 DEGC=ABS (TEMP-32) *.5556 

2200 DELTAT=ABS (15-DEGC) /20 

P210 ' 

2220 ' COMPUTE AND APPLY TEMPERATURE CORRECTIONS 

2230 ' 

2240 IF TEMP < 59 THEN TIME = TIME - .5*DELTAT 

2250 IF TEMP < 59 GOTO 2300 

2260 IF TEMP = 59 THEN GOTO 2300 

2270 IF TIME < 15 THEN TIME = TIME + 3*DELTAT 

2280 IF (TIME >=15) AND (TIME < 20) THEN TIME = TIME + 
2*DELTAT 

2290 IF TIME >= 20 THEN TIME = TIME + DELTAT 

2300 СІВРАТА (4) =ТІМЕ 
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2310-7 


2320 'PRINT THE RESULTS OF THE CLIMB COMPUTATIONS SE 
MACH, TIME 

2330 7 

2340 CLS 

2350 LOCATE 6,30:PRENT "COMPUTEDSCLIMBS ОАЕ 

2360 LOCATE 10,20: PRINTI "CLIMB SPEED = ";5;" 6 TO 


20,000 672727 
2370 LOCATE 11,20 P 1ل‎ ٢٨1 ٧ H 


"; 27110ء۰‎ ٣٦ 


ПЯ АМ 

2380 LOCATE 12,20:PRINT "FINAL ALTITUDE = ";:PRINT USING 
١٢ "8888ھ‎ > HCRUISE*1000; 

2390 PRINT. SERIEN 

2400 LOCATE 13,20:PRINT "CLIMB TIME = ";:РАТМТ USING 
"Het"; TIME; 

2410 PRINT "< MINUAESE 

2420 ' 

2430 '***** COMPUTE THE CLIMB...FUEL ***** 

2440 ' 


2450 HCRUISE-HCRUISE*1000 

2460 IF HCRUISE«-5000 THEN INDEX2-(TOGW/1000)/28.5714 
2470 IF (HCRUISE>5000) AND (HCRUISE<=10000) THEN 
INDEX2-((TOGW/1000)-2.5)/12.5 

2480 IF (HCRUISE>10000) AND (HCRUISE<=15000) THEN 
INDEX2=( (TOGW/1000) -1.8947) /8.421099 

2490 IF (HCRUISE>15000) AND (HCRUISE<=20000) THEN 
INDEX2=( (TOGW/1000) -3.2047) /5.9347 

2500 IF (HCRUISE>20000) AND (HCRUISE<=25000) THEN 
INDEX2-((TOGW/1000)-3.6145)/4.8193 

2510 IF (HCRUISE>5000) AND (HCRUISE<25000) THEN IF 
(TOGW>40000!) AND (TOGW<=41000!) THEN INDEX2=INDEX2+.1 ELSE 
IF TOGW>41000! THEN INDEX2=INDEX2+.15 

2520 IF HCRUISE=25000 THEN IF TOGW>40000! THEN 
INDEX2=INDEX2+.13 

2530 IF HCRUISE»25000 THEN INDEX2-EXP(((TOGW/1000)- 
((.6856* (HCRUISE/1000) )-35.4857))/(- 

.7754* (HCRUISE/1000)-48.0666)) 

2540 ' 

2550 'FUEL CALCULATION 

2560 ! 

2570 IF DC<150 THEN B=.0011*DC+1.029 ELSE B=.0005*DC+1.1141 
2580 IF DC<200 THEN A=.0015*DC+1.0163 ELSE 
A=.0009*DC+1.1456 

2590 FUEL-A*(INDEX2^B) 

2600! 

2610 ' COMPUTE AND APPLY TEMPERATURE CORRECTIONS 
2620 ' 

2630 IF TEMP-59 THEN FUEL-FUEL*100 

2640 IF TEMP-59 GOTO 2720 

2650 IF TEMP«59 GOTO 2710 

2660 IF FUEL<3 THEN FUEL=(FUEL*100)+(55*DELTAT) 
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2670 IF (FUEL>=3) AND (FUEL<5) THEN 
FUEL= (FUEL*100) +(90*DELTAT) 

2680 IF (FUEL>=5) AND (FUEL<12) THEN 
FUEL= (FUEL*100)+(120*DELTAT) | 


2690 


IF (FUEL>=12) AND (FUEL<20) THEN 


FUEL= (FUEL*100)+(140*DELTAT) 


2700 IF TEMP > 59 GOTO 2720 

2710 IF FUEL«-10 THEN FUEL=(FUEL-((FUEL/10) *DELTAT) ) *100 
ELSE FUEL=(FUEL-(1.2*DELTAT) ) *100 

2720 CLBDATA (5) =FUEL 

2730 LOCATE 14,20:PRINT "FUEL REQUIRED =  ";:PRINT USING 
"S22" ;FUEL; 

2740 PRINT " LBS" 

2750 ' | 

2760 '***** COMPUTE THE CLIMB ...DISTANCE ****x 

2770 ! 

2780 '"INDEX" IS USED FROM THE TIME CALCULATIONS CHARTS 
2790 ' 

2800 INDEX-INDEX*20 


2810 


IF DC<200 THEN B=.0011*DCt+1.0576 ELSE 


B=.0003*DC+1.2085 


2820 IF DC<200 THEN A=~.0009*DC+.9198 ELSE A=.7436 
2830 IF (HCRUISE>25000) AND (HCRUISE<=30000) THEN A=A+.1 
2840 IF HCRUISE>30000 THEN A=A+.2 
2850 DIST-A*(INDEX^B) 
2860 ' 
2870 ' COMPUTE AND APPLY TEMPERATURE CORRECTIONS 
2880 ' 
2890 IF TEMP«59 GOTO 2920 
2900 IF DIST<40 THEN DIST=DIST+8*DELTAT ELSE 
- DIST=DIST+12*DELTAT 
2910 GOTO 2950 
2920 IF DIST<=80 THEN DIST=DIST-((DIST/20) *DELTAT) 
2930 IF DIST>140 THEN DIST=DIST-(5*DELTAT) ELSE DIST=DIST- 
(8*DELTAT) 
2940 CLBDATA(6)=DIST 
2950 LOCATE 15,20:PRINT "DISTANCE = ";:РАТМТ USING 
"###.#";DIST; 
21950 PRINT " NM" 
2970 TOP=3 
2980 LEFT=15 
2990 WIDTZ=50 
3000 HEIGHT=15 
3010 GOSUB 7200 'рох the output 
3015 IF OUTPUT21 THEN GOSUB 7560 
ОООО LOCATE 24,27,0: PRINT "PRESS ANY KEY TO CONTINUE" 
3030 ANSS=INKEYS:IF ANSS= "" THEN 3030 
3050 RETURN 
3053 ТЕ SELECTFLAGZ=1 THEN GOSUB 3060 
3054 IF SELECTFLAGZ-] THEN CHAIN "BOTHALF",8230,ALL 
3060 '****k*kk*kkkk CRUISE PERFORMANCE SUBROUTINE ********x** 
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3200 CLS:LOCATE 10,20,0:PRINT "-W-COMPNOTE,NOWAIT/" 


3210 !********** CRUISE OPTION 3 


MACH sk yk ke le le gle e باد ما او‎ 


9220 " 

3230 Т=1 

3240 GOSUB 3710 

3250 GOSUB 4960 

3270 'CRUSDATA(1)^ALT 
3280 !"СКОЗОАТА (2) -СМАСН 
МАСН МОМВЕК 

3290 'CRUSDATA(3)=T 

TEMP DEG RANKINE 

3300 'CRUSDATA(4)=P 
PRESSURE PSF . 

3310 'CRUSDATA(5)=SONIC 
SOUND a 

3320 'CRUSDATA(6)=CL 
COEFFICTENT 

3330 'CRUSDATA(7)=CD 
COEFFICIENT 

3340 'CRUSDATA(8)=D 

LBS 

3350 'CRUSDATA (9) =ENGTHRUST 
THRUST LBS 

3360 'CRUSDATA (10) =WF 
LBS/HR 

3370 "СКОЗПОАТА (11) -КВАК 
RANGE NM/LB 

3380 'CRUSDATA(12)=V 
SPEED KTS 

3390 'CRUSDATA(13)=H 
ALTITUDE 

3400 'CRUSDATA(14)=MI 
MACH NUMBER 

3410 "СКОЗПАТА (15) -КТАЗ 
AIRSPEED KTS 

3420 'CRUSDATA(16)=DYNPRESS 
PRESSURE d 

3430 'CRUSDATA(17)=ALPHA 
ATTACK IN RADIANS 

3440 'CRUSDATA(18)-ALPHAO 
CL=0 

3450 'CRUSDATA(19)=ALPHAL 
"1 / (ЯАТРНА/аст) 

3460 'CRUSDATA(20)=DELTATR 
STD DAY DEG RANKINE 

3470 'CRUSDATA(21)=CDO 
3480 'CRUSDATA(22)=CLFO 
THRUST CL 

3490 'CRUSDATA(23)=CDFO 
THRUST CD 
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== SPECIFIED ALTITUDE ANS 


' CRUISE 

' AMBIENT 

' AMBIENT 
‘SPEED VEE 
ТЕТ 

' DRAG 
'TOTAL DRAG 
' ENGINE 
'FUEL FLOW 
' SPECT HIRE 
' GROUND 

' INDICATED 
' INDICATED 
' INDICATED 
' DYNAMIC 

' ANGLE OF 


"АОА АТ 


'DEV FROM 


"сро 
' ZERO 


' ZERO 


3500 'CRUSDATA(24)=DELCDS ' STORE 
TOTAL DRAG INCREMENT 

3510 'CRUSDATA(25)=HDWIND ' HEADWIND 
KTS (NEGATIVE) 

3520 ! 

3530 'PRINT RESULTS OF CRUISE CALCULATIONS 

3540 ' 

3542 PRINT "~C=LAST/":CLS 

3550 LOCATE 6,30:PRINT "COMPUTED CRUISE DATA" 

3560 LOCATE 10,20:PRINT "SELECTED CRUISE ALTITUDE = 
"SADLT;:PRINT "FEET" 

3570 LOCATE 11,20:PRINT "SELECTED CRUISE MACH E 
"!esPRINT USING "#.##";CMACH 

3580 LOCATE 12,20:PRINT "AMBIENT TEMPERATURE - 
"S:PRINT USING "ijiéii";T-459.69;:PRINT " DEG F" 

3590 LOCATE 13,20:PRINT "FUEL FLOW = 
";:РЕАТМТ USING "####"; ИЕ; : РЕТМТ " LBS/HR" 

3600 LOCATE 14,20:PRINT "SPECIFIC RANGE = 
";:PRINT USING "##.##";1/RBAR;:PRINT " LB/NM" 

3610 LOCATE 15,20:PRINT "GROUND SPEED = 

">, PRINT USING "###";?V;:PRINT " KTS" 

3620 LOCATE 16,20:PRINT "TRUE AIRSPEED = 
":PRINT USING "ij$i";CMACH*SONIC*.5921;:PRINT "Ç" KTAS" 
3630 TOP=3 

3640 LEFT=15 

3650 WIDTZ=50 

3660 HEIGHT=15 

3670 GOSUB 7200 'рох the 
output 

3675 IF OUTPUT-1 THEN GOSUB 7560: ПРЕТМТ СНЕ9 (12) 


' AUTO ۶1 71 


3680 LOCATE 24,27,0:PRINT "PRESS ANY KEY TO CONTINUE" 
3690 ANSS=INKEYS:IF ANSS= "" THEN 3690 

3700 RETURN 

3710 '**k**kkkkkk SUBROUTINE PERF ****k*kkkkkk 

3720 ALT=HCRUISE 

3730 GOSUB 3800 

3735 IF SELECTFLAG£-I THEN CMACH-LLKGS/ (SONIC*.5921) 
3740 GOSUB 3950 

3750 ENGTHRUST-D/COS (AOA) 

3760 GOSUB 4320 

3770 V=.5921*CMACH*SONIC+HDWIND 

3780 RBAR=V/(1.05*WF) 

3790 RETURN 

3800 'кжжжххжжжх SUBROUTINE ATMOS хжхжкхкхххжхх 

3810 '"ALT" IS THE SELECTED CRUISE ALTITUDE 

3820 '"DELTATR IS THE TEMPERATURE DEVIATION IN DEGREES 
RANKINE 

3830 DELTATR=(TEMP+459.69)-518.69 

3840 IF ALT>36089! GOTO 3900 

3850 T=518.69-((3.5662*ALT) *10*-3)+DELTATR 
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3860 
3870 
3880 
3890 
3900 
3910 
S920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 


Р=2116.2*(1-(6.8754Е-Об*АГТ))^5.256 
SONIC=49.01*SQR(T) 

Q=262.5*P 

RETURN 

T=389.99+DELTATR 
P=472.68*EXP(-4.806E-05* (ALT-36089!) ) 
SONIC=49.01*SQR(T) 

Q=262.5*P 

RETURN 

1! < * k k k k К SUBROUTINE DRAG жхкжхжкжх 
РЕМ=.4924-(.0239*СМАСН)+(.3047*СМАСН^2) 
ALPHAO=(.01935-(.02378*CMACH) +(.02756*CMACH*2) ) /DEN 
ALPHA1=.1396/DEN 

IF CMACH>.6 GOTO 4020 

DELCDS=DC6/10000 

GOTO 4140 
A1-DC6/10000-436*(DC7/10000-DC6/10000) 
B1--120*(DC7/10000-DC6/10000) 

C1=100* (DC7/10000-DC6/10000) 
A2=DC7/10000+49* (DC8/10000-DC7/10000) - 


5.6*(Bl-(1.4*C1)) 


4060 
4070 
4080 


B2=-140* (DC8/10000-DC7/10000)+15* (Bl+(1.4%*C1) ) 
C2=100* (DC8/10000-DC7/10000) -10*(B1l+(1.4*C1) ) 
A3=DC8/10000+64* (DC9/10000-DC8/10000) - 


7.2% (B2+(1.6*C2) ) 


4090 
4100 
4110 


B3=~-160* (DC9/10000-DC8/10000) +17* (B2+(1.6%*C2) ) 
C3=100* (DC9/10000-DC8/10000) -10* (B2+(1.6*C2) ) 
IF (CMACH>.6)AND (CMACH<.7) THEN 


DELCDS=A1+ (В1*СМАСН) + (С1*СМАСН^2) 


4120 


ТЕ (СМАСН>=.7) AND (CMACH«.8) THEN 


DELCDS=A2+ (B2*CMACH) +(C2*CMACH*2) 


4130 
4140 
ELSE 
4150 


IF CMACH>=.8 THEN DELCDS=A3+(B3*CMACH) +(C3*CMACH“2) 
ТЕ СМАСН».825 ТНЕМ Сро=.015+.8889% ( (СМАСН-.825) ^2) 
CDO=.015 

IF DESFLAG-1 THEN GOTO 4160 ELSE CLFO-(TOGW- 


FUEL) / (Q*CMACH“2) 


4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 


CL=CLFO 

GOSUB 4270 

EFO=E 

CDFO=CDO+DELCDS+ (CLFO*2) /(4*3.141593*EFO) 
CL=(CLFO-(CDFO* (ALPHAO-.0222)))/(1+(CDFO*ALPHAL) ) 
GOSUB 4270 

CD=CDO+DELCDS+ (CL^2/ (4*3.141593*E)) 
ALPHA-ALPHAO- (CL*ALPHA1) 

AOA-ALPHA-.0222 

D=375*CD* (.7*CMACH*2*P) 

RETURN 

I! < < < < < < < < < < SUBROUTINE E *****k*k*kk*k* 

IF CL«-.3 THEN E-.875 

IF (CL».3) AND (CL«-1.1) THEN E-.875-.783*((CL- 


.3)^1.5) 
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4300 
4310 
4320 
4330 
4340 


ARRAY 


4350 
4352 
4360 
4370 
4380 
4390 
4400 
4410 
4420 


IF CL>1.1 THEN E=.3147 
RETURN 
U****k*kkkk* SUBROUTINE FUEL FLOW ******kkkkkk 


'READ IN THRUST CALCULATION CONSTANTS INTO THRUST 


RESTORE 4800 

FOR I-1 TO 9 

OR 1-232 
READ THRUST(I,J) 
NEXT J 

NEXT I 

t 


'READ IN FUEL FLOW CALCULATION CONSTANTS INTO FUELFLO 


ARRAY 


4430 
4431 
4440 
4450 
4460 
4470 
4480 
4490 


RESTORE 4860 

РОВ Т=1 ТО 18 

FOR J=1 TO 3 
READ FUELFLO(I,J) 
NEXT J 

NEXT I 

IF ALT«-20000 THEN J-1 


'picks column altitude 


4500 IF (ALT>20000) AND (ALT<=36089!) THEN J=2 

4510 IF ALT>36089! THEN J=3 

4520 K=1 

4530 FOR I=1 TO 6 

4540 

W (I) =FUELFLO (K,J)+FUELFLO(K+1,7) *ALT+FUELFLO(K+2,J) *ALT*2 
4550 К-К+З 

4560 NEXT I 

4570 W(7)=W(1)+W(2) *CMACH 

4580 W(8)=W(3)+W(4) *CMACH 

4590 W(9)=W(5)+W(6) *CMACH 

4600 IF ALT<=36089! THEN J=1 ELSE J=2 

'picks column thrust 

4610 К=1 

4620 FOR I=1 TO 3 

4630 

F (I) =THRUST(K,J)+THRUST (K+1,J) *ALT+THRUST (K+2 ,J) *ALT*2 
4640 K=K+3 

4650 NEXT I 

4660 ! 

4670 ‘CALCULATIONS OF MAX THRUST AVAILABLE FOR SUBROUTINE 
FCLIMB 

4680 ! 

4690 'ЕРВТМЕМ=Е(1)+Е(2)*СМАСН+Е (3) *CMACH^2 

4700 'TT-T*(1-(.2*CMACH^2)) 
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4710 'IF TT«520 THEN ENGTHRUST-FPRIMEN ELSE 
ENGTHRUST-FPRIMEN*(1-(.003875*(TT-520) * (12 (.2*CMACH^2) ) )) 
4720 ۷ 

4730 'FUEL FLOW CALCULATIONS FOR SUBROUTINE FUEL FLOW 
4740 ' 

4750 WFSTD=W(7)+W(8) *ENGTHRUST+W (9) *ENGTHRUST*2 

4760 WF=WFSTD*SQR(T/ (T-DELTATR) ) 

4770 ' 

4780 'THRUST COEFFICIENT DATA STATEMENTS 

4790 ' 

4800 DATA 13712, 11852, -.4496, -.3358, 4.309E-6, 2.571E-6, 
-6804, -6635 

4810 DATA .2136, .1901, -2.004E-6, -1.493E-6, 9639, 9022, - 
.2902, -.2456 

4820 DATA 2.569E-6, 1.8226E-6 

4830 ' 

4840 'FUEL FLOW COEFFICIENT DATA STATEMENTS 

4850 ' 

4860 DATA 1.1481E3, 3.5298E3, -.6507E3, -2.0797E-2, - 
2.3908E-1, 9.509E-2 

4870 DATA -2.7714E-7, 4.6621E-6, -1.381E-6, 9.607E2, - 
1.4681E3, 2.490E3 | 

4880 DATA -8.3594E-2, 1.7707E-1, -1.378E-1, 2.8857E-6, - 
4.0328E-6, 1.647E-6 

4890 DATA 3.0843E-1, -2.4361, 4.679, -9.6006E-6, 2.2154E-4, 
-2.319E-4 

4900 DATA 1.3143E-10, -4.5717E-9, 2.521E-9, 4.0528E-1, 
3.3845, -3.740 

4910 DATA 2.1167E-5, -2.4055E-4, 2.105E-4, -8.3686E-10, 
4.7787E-9, -2.243E-9 

4920 DATA 2.0145E-5, 6.812E-4, -7.109E-4, 1.2972E-9, - 
5.3767E-8, 2.647E-8 

4930 DATA 4.4829E-14, 1.1523E-12, 0, 7.7595Е-7, -7.1100Е-4, 
6.253Е-4 

4940 DATA -2.5781E-9, 5.7140E-8, -2.21E-8, 4.1052E-14, - 
1.1675E-12,0 

4950 RETURN 

4960 '***kkk**k*k* SUBROUTINE POS.ER. **kkkkkkkk 

4970 GOSUB 3800 

4980 DYNPRESS-.7*P*CMACH^2 

4990 IF CMACH».65 THEN CPO-.4675-1.49*CMACH-*(1.2*CMACH^2) 
ELSE CPO--.0616-.0231*CMACH-*(.1244*CMACH^2) 

5000 CPRIMEP-.000149-(.000511*CMACH)-(.00128*CMACH^2) 
5010 РТ=Р*(1+.2*СМАСН^2)^3.5 

5020 CP=CPO+CPRIMEP* ( (TOGW-FUEL) /DYNPRESS) 

5030 PII=P+CP*DYNPRESS 

5040 GOSUB 5080 

5050 MI=SQR(5*((PT/P)*.2857-1) ) 

5060 KIAS=1478*SQR((1+(PT-PII) /2116.2)*.2857-1) 

5070 RETURN 

5080 ! £ xxx و‎ SUBROUTINE HFUNC (P) * k k k k k k * k < 
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5090 


IF P<472.68 THEN H=36089!+20807!*(LOG(472.68/P)) ELSE 


Н=145450!*(1-((Р/2116.2)^.1903)) 


5100 
5110 
5120 
5130 
5140 
5150 
5150 
5170 
5180 


RETURN 
! 


!k2kkkkkkkk DESCENT MODE SUBROUTINE **dkx ہل‎ x x 
t 

DELR=0 

DELRJ=0 

DELW=0 

DELWJ-0 

CLS:LOCATE 10,20,0:PRINT "-W-COMPNOTE, NOWAIT/" 


5190 DGW-TOGW-FUEL  'Modified from original program 
5200 DKIAS-322-((49.5-.0007325*DGW) *(1/SQR(.015)- 
(1/SQR(.015+DC6/10000)))) 
5210 МСТ=.85 

5220 GOSUB 5900 

HM 

5230 GOSUB 5960 

DESC/ALTS 

5240 K=0 

5250 G=0 

5260 K=K+1 

5270 H-DESCH(K) 

5280 ALT=H 

5290 GOSUB 3800 

ATMOS ` 

5300 IF H>=HM THEN M=.85 ELSE 
M=2.236*SQR((1+(2116.2/P) *((1+4.571E-07*DKIAS*2)%*3.5- 
1))^.2857-1) 

5310 IF G-1 THEN GOTO 5620 


' SUBROUTINE 


' SUBROUTINE 


"SUBROUTINE 


"SUBROUTINE С 


5320 GOSUB 6290 ' SUBROUTINE 
DESC/DER 

5330 Н=Н+1 

5340 GOSUB 6240 ' SUBROUTINE U 
5350 IF DESCH(K)<>HSD GOTO 5410 


5360 
5370 
5380 
3390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5610 


HJ=DESCH (K) 

RPJ=RP 

WPJ=WP 

UJ=U 

GOTO 5260 

НЈ1=рЕЅСН (К) 

RPJ1-RP 

WPJ1=WP 

UJ1=U 

DELRJ-8.229E-05* (UJ*RPJ-UJ1*RPJ1)-* (HJ1-HJ) 
DELWJ-2.0001458* (UJ*RPJ*WPJ-UJ1*RPJ1*WPJ1)-*(HJ1-HJ) 
IF DESCH(K)<>HED THEN GOTO 5530 

HBARJ=.5%* (HJ+HJ1) 

H-HBARJ 

ALT-DESCH(K) 

G-1 
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5920 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 


СОТО 5290 

H-H-2 

GOSUB 6240 
HJ-DESCH(K) 
RPJ-RPJ1 
٢۶7-۲۶1 

UJ-U 
DELR=DELR+DELRJ 
DELW=DELW+DELWJ 
GOTO 5260 

GOSUB 6530 


‘SUBROUTINES 


' SUBROUTINE 


WET DE 


5630 
5640 
NJ=1 
5630 
5660 
5670 
5680 
2690 
5700 
0 
5720 
S 730 
5740 
5750 
5760 
S 770 


WBARPJ=WFIDL/(M*SONIC+(HDWIND/.5921)) 
IF HJ1=HED THEN NJ=1/3+(4/3) *(WBARPJ/(WPJ+WPJ1)) ELSE 


DELWJ=DELWJ*NJ 

DELR=DELR+DELRJ 

DELW=DELW+DELWJ 

DESCTIME=HSD/3200 

DESDATA (1) =DELW 

DESDATA (2) =DELR 

DESDATA (3) =DKIAS 

РЕЗРАТА (4) =РЕЗСТТМЕ 

'PRINT RESULTS 

! 

PRINT "-C-LAST/":CLS 

LOCATE 5,30:PRINT "COMPUTED DESCENT DATA" 
LOCATE 8,27:PRINT "DESCENT FUEL USED = ";:PRINT USING 


"S4S33" ;DELW;:PRINT " LBS" 


5780 


LOCATE 10,27:PRINT "DISTANCE COVERED = ";:РАТМТ ОБС 


"S43.4" ;DELR;:PRINT " NM" 


5790 


BOCATE 12, ے‎ 7 : 1 Вие — ";:PRINT USING 


"$i.43" ;DESCTIME;:PRINT " MIN" 


5800 LOCATE 14,27:PRINT "DESCENT SPEED = ھ‎ 7 
USING "۱06 125:: ٢ ٥ 

5810 ТОРЕЗ 

5820 LEFT=15 

5830 WITDZ=40 

5840 HEIGHT=13 

5850 GOSUB 7200 "рок 
the output 

5855 IF OUTPUT-1 THEN GOSUB 7560:LPRINT CHR$(12) 


' AUTO PRINTSCREEN 


5860 
5670 
5875 
5880 
5890 
29/00 
S910 


1)/((1+.2*MCL^2)^3.5-1) 


LOCATE 24,27,0:PRINT "PRESS ANY KEY TO CONTINUE! 


ANSS=INKEY$:IF ANSS= "" THEN 5870 
ERASE CLBDATA, DESCH, DESDATA 
RETURN 

STOP : 


U**k*kkkkk*kk SUBROUTINE HM *****kkkkkk 
P-2116.2*((1-(4.571bE-07*DKIAS^2) )^3.5- 
' PM 
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5920 


GOSUB 5080 ' SUBROUTINE 


HFUNC(P) 


5980 
5940 
5950 
5960 
5970 
5980 
5290 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 


HM=H 
RETURN 
! 


!****kkkk**k SUBROUTINE DESC/ALTS *******kkk 

! 

IF (HM>HED) AND (HM«HSD) THEN GOTO 6070 

IF (36089!>HED) AND (36089!<HSD) THEN GOTO 6040 
DESCH (1) =HSD 

РЕЗСН(2)=36089! 

DESCH (3) =HED 

RETURN 

DESCH (1) =HSD 

DESCH (2) =HED 

RETURN 

IF (36089!>HED) AND (36089!<HSD) THEN GOTO 6120 
DESCH (1) =HSD 
DESCH (2) =HM 
DESCH (3) =HED 
RETURN 

IF HM>36089! 
DESCH (1) =HSD 
DESCH(2)236089! 

РЕЗСН(3)=НМ 

DESCH (4) =HED 

RETURN 

DESCH (1) =HSD 

DESCH (2) =HM 

РЕЗСН(3)=36089! 

РЕЗСН (4) =НЕР 

RETURN 

! 

Ikkkkkkkkkk SUBROUTINE U ****kkk*kkx 

IF H>=HM THEN U=1 ELSE U=2+.2*M^2- (1+.2*M^2) ^-2.5 
IF H>=36089! THEN RETURN ELSE U=U-.133*M^2 

RETURN 

! 


ТНЕМ СОТО 6180 


Ikkkkkkkkkk SUBROUTINE DESC/DER * k k k k k k k k k 
CMACH=M 

CLFO-DGW/ (Q*M^2) 

DESFLAG-1 

GOSUB 3950 

DESFLAG=0 

GOSUB 6420 

GOSUB 6530 

V=M*SONIC 

RP=(DGW/ (FIDL-D) ) *(1+((HDWIND/.5921) /V) ) *U 
WP=WFIDL/ ( (HDWIND/.5921)+V) 

RETURN 

! 
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6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6652 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7210 
7280 
7290 
7300 
2 10 
7320 
7390 
7340 
2850 
7360 
Z3 10 
7380 
7390 
7400 
7410 
7420 


!**kkkkkkkk*k SUBROUTINE FIDL Xx xk oke oke oke oke oke ke ke 


IF H>36089! THEN GOTO 6480 
FO=668+.01058*H | 
РТ=-2.4-.0000277*Н 
FIDL-FO-950*MTFT*DELTATR 
RETURN 

FO=-78+. 0312748 
FT=13.7-.000473*H 
FIDL=FO-950*M+FT*DELTATR 
RETURN 

' 


!****kkkk*k** SUBROUTINE WFIDL *******kkk*k 
IF H>36089! THEN GOTO 6600 
٧۷٢ و حر‎ 28-0183 711763 381١-0747 
WFM=1150-.0319*H 

WFT=-1.25 
WFIDL=WFO+WFM*M+WFT*DELTATR 
RETURN 

WFO=492+.00597*H 

МЕМ-0 

МЕТ-8.5-.00027%Н 
WFIDL=WFO+WFM*M+WFT*DELTATR 
RETURN 

! 


ЕКО | 

!*x*X*kkkkk*** SUBROUTINE DBLBOX *****kkkkkk 
' TOP = ROW NUMBER OF UPPER LEFT CORNER 
' LEFT = COLUMN OF UPPER LEFT CORNER 

' WIDTZ = WIDTH OF BOX 

' HEIGHT = HEIGHT OF BOX 

' 

BOTTOM - 
RIGHT - 
۱ 


TOP + HEIGHT 
LEFT + WiDTZ 


' LOCATE AND PRINT THE CORNERS OF 

۱ 

LOCATE TOP, LEFT 
PRINT  CHR$(201) 
LOCATE TOP, RIGHT 
PRINT CHR$(187) 
LOCATE BOTTOM, LEFT 
PRINT CHR$(200) 
LOCATE BOTTOM, RIGHT 
PRINT CHR$(188) 

! 


Tl د‎ 


'"PRINTs upper left corner 


'PRINTs upper right corner 


'"PRINTs lower left corner 


'"PRINTs lower right corner 


' DRAW THE TOP, BOTTOM, AND SIDES 


FOR COL = 


OF THE БОХ 


(LEFT + 1) TO (RIGHT - 1) 'top and 


bottom 


7430 
7440 


LOCATE TOP, COL 
PRINT CHR$(205) 
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7450 LOCATE BOTTOM, COL 

7460 PRINT CHR$(205) 

7470 NEXT COL 

7480 FOR ROW = (TOP + 1) TO (BOTTOM - 1) Ше слана 
right sides 

7490 LOCATE ROW, LEFT 

7500  РЕІМТ СНЕ5 (186) 

7510 LOCATE ROW, RIGHT 

7520 PRINT CHR$(186) 

7530 NEXT ROW 

7540 RETURN 

1550 

7560 'Kkkkkkkkk#x#* PRINT SCREEN ASSEMBLY LANGUAGE SUBROUTINE 
کہ جلو باو بل با باو باو لے چاو باو‎ 

7580 A%(0)=&HCD55 

7590 A%(1)=&HS5D05 

7600 A%(2)=&H90CB 

7610 SUBRT = VARPTR(A%(0)) 

7620 CALL SUBRT 

7640 RETURN 

7700 "*xXx*x*x*** INTRODUCTION AND SETUP SUBROUTINE 
хх 

ШІП ІОСАТЕ 1,1,0:РКІМЮТ "-М-ІМТКОСБЕҺ/!":5СКЕЕМ ,,3,0: INPUT 
"f" INTRO:SCREEN ,,0,0 

7720 IF INTRO=3 THEN RETURN 

97530 LF INTRO=2 THEN PRINT “~W=INTRO5/":SCREEN ,,3,0: INPUT 
нн OUTPUT:SCREEN ,,0,0 

7745 LF INTRO=1 THEN PRINT “~W=INTRO/":SCREEN ,,3,0: INPUT 
ни OUTPUT:SCREEN 0 

7750 RETURN 

8000 '***k**k*** ERROR TRAP FOR PRINTER ERRORS "*'***kkkkkkk 
8010 IF ERR=27 THEN PRINT "-W-PRINTERR/" 

8020 ON ERROR GOTO 0: КЕЗОМЕ 

10000 ON ERROR GOTO 62980 ' Error Handling Routine - 
Delete 

10010 ие семе със мл Еп your 
own 

30000 ' 

30005 ! Variables Section For B:XCINPUT 

230010 ' 

30015 VL.SS$(1)-STRS$(TEMP): VL.SS$(2)-STRS$ (PA): 
VL.SS$(3)=STR$(TOGW) : 

30020 VL.SS$(4)=STRS$ (RLENGTH): VL.SS$(5)=STR$(DC6) : 
VL.SS$(6)=STR$(DC7): 

30025 VL.SS$(7)=STR$(DC8): VL.SS$(8)=STR$(DC9) : 
VL.SS$(9)=STRS$ (CMACH) : 

30030 VL.SS$(10)=STRS$ (HCRUISE) : VL.SS$(11)=STR$(HDWIND) : 
VL.SS$(12)-STR$(HSD): 

30035 VL.SS$(13)-STRS$(HED): VL.SS$(14)-2STR$(FUELLOAD): 
30040 RETURN 

30045 ' 


9د 


30050 


30055 


30060 


Assign VL.SS$ Array to the variables 


TEMP-VAL(VL.SS$(1)):PASVAL(VL.SS$(2) )  TOGW-VAL(VL.SS$(3)): 


30065 


RLENGTH-VAL(VL.SS$(4)):DC6-VAL(VL.SS$(5) ) s DC7-VAL(VL.SS$ (6) 


): 
30070 


DC8=VAL(VL.SS$(7) ) :DC9=VAL(VL.SS$(8)) : CMACH=VAL(VL.SS$(9)): 


30075 


HCRUISE=VAL(VL.SS$(10) ) :HDWIND=VAL(VL.SS$(11)):HSD=VAL(VL.S 
557112 и 
30080 HED=VAL(VL.SS$(13) ) : FUELLOAD=VAL(VL.SS$(14)): 
30085 RETURN 


30090 ' 

30095 ! Section То Initialize Variables To Initial 
Values 

30900 € 

30105 TEMP=0: PA=0: TOGW=31200: RLENGTH=13500: DC6=0:3: 
30110 DC7=0: DC8=0: DC9=0: CMACH=0!: HCRUISE=27000: 
30115 HDWIND=0: HSD=27000: HED=0: FUELLOAD=10000: 
30120 RETURN 

30125 % 

301508! **** List DATA statements & Print DISPLAY Only 
Variables  ****x 

30135 'Lin,Col,Len,Picture,Low Range,High 

Range, Foreground, Background,# of Edit 

30140 ! 

30145 РАТА 53,5,6,"М", иная" 0,120, 15,0,0 

30150 РАТА 53,6,6,"М", иная" 0,8000,15,0,0 

30155 БАТА 53,7,6, "М", ЛЫ ",25000,42000,15,0,0 
30160 DATA 53,8,6,"N" ," ",0,99999,15,0,0 

30165 DATA 53,9,6," N","£4ZXXX'",0,999,15,0,0 

30170 DATA 53,10,6,"М", "3" ,0,999,15,0,0 

30175 ВАТА 53, 11,6, "Ш, Пе 

30180 DATA 53,12,6,"N","444444",0,999,15,0,0 

30185 DATA 53,13,6,"N","4434.44",0.00,1.20,15,0,1 
30190 DATA 53,14,6,"N","#44444" 100,46000,15,0,0 
30195 DATA 53,15,6, "N" "######" –200,200,15,0,0 
30200 DATA 53,16,6,"N","##4444" 100, 46000,15,0,0 
30205 DATA 53,17,6,"N","3434234243",0,46000,15,0,0 
30210 DATA 53,19,6,"N","23443424",0,20000,15,0,0 
39215 RETURN 

3) 0" 

зш2 25" Screen Display Initialization Statements 
30230 ° 

30235 NUMFLDS.SS%=14: FILNM.SSS$="XCINPUT.SCR": 
. 30240 EXITCHR.SSŞ=CHRŞ(27)+CHRŞ(127)+"" 

30245 RESTORE 30130 

30250 RETURN 

09 اد 
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30260 ' Variables Section For B:LLINPUT 

30265 ! 

30270 VL.SS$(1)sSTRS$(LLALT): VL.SS$(2)-STR$(LLKGS): 
VL.SS$(3)=STRS$ (LLFUEL1) : 

30275 RETURN 

30280 ' 

30285 ' Assign VL.SS$ Array to the variables 
30290 ' | 

30295 
LLALT=VAL(VL.SS$(1) ) : LLKGS=VAL(VL.SS$(2) ) : LLFUEL1I=VAL(VL.SS 
we) ) : 

30300 RETURN 

39205 ' 

50310 ' Section To Initialize Variables To Initial 
Values 

0 ' 

30320 LLALT-200: LLKGS-3060: LLFUELI1-0: 

30325 RETURN 

20330 ' 

80335 ' **** List DATA statements & Print DISPLAY Only 
Variables  ****x ” 
30340 'Lin,Col,Len,Picture,Low Range,High 

Range, Foreground, Background, # of Edit 

20345 ! 

30350 DATA 48,8,5,"N","#####" 00 ٥ 
30355 DATA 48,11,5,"N","#####",0,700,15,0,0 

30360 DATA 48,14,5,"N","#####" 0,16000,15,0,0 

30365 RETURN 

50570 ' 

30375 ' Screen Display Initialization Statements 
503580 ! 

30385 NUMFLDS.SS%=3: FILNM.SSS="LLINPUT.SCR": 

30390 ЕХТТСНВ.$5$=СНВ$ (27)+СНВ$ (127) +"" 

ЗН RESTORE 30335 

30400 КЕТОКН 

8 3۲۹ 

J0410 ! Variables Section For B:LLJETLOG 

30415 ' 

30420 RETURN 

30425 ' 

30430 ' Assign VL.SS$ Array to the variables 
50235 ! 

30440 RETURN 

30445 ' 

50450 ' Section To Initialize Variables To Initial 
Values 

9 ! 

30460 RETURN 

204657 

ТО! **** List DATA statements & Print DISPLAY Only 
Variables  **** 
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30475 


30480 


'Lin,Col,Len,Picture,Low Range,High 
Range,Foreground,Background,£ of Edit 


30485 COLOR 15,0: 
LEFTS (GEOLAT$+LEFTS$ (BLNK.SS$,1-LEN(GEOLATS) ) ,1); 
30490 COLOR 15,0: 
LEFTS (GEOLONGS$+LEFT$ (BLNK.SS$,1-LEN(GEOLONGS) ) ,1); 
30495 COLOR 15,0: 
LEFTS (MVARTYPES+LEFTS (BLNK.SS$,1-LEN(MVARTYPES) ),1); 


30500 
30505 
30510 
30515 
30520 
А5; 
30525 
А6; 
30530 
А7; 
20525 
А8; 
30540 
AQ; 
30545 
A10; 
30650 
А11; 
30555 
А12; 
30560 
А13; 
30565 
А14; 
30570 
AlS? 
30575 
А16; 
30530 
A17; 
30585 
A18; 
30590 
30595 
30600 
30505 
30610 
30615 
30620 
30625 
30630 
30635 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 
COLOR 


14,1: 
ل1‎ ٤ 
14,1: 
14,1: 
14,1: 
2317 
Lae: 
J42 1: 
АШ 
qu de 
ТАТІ: 
14 1; 
145 15 
14 1: 
14, ٤ 
ша: 
14,۰ 
ТАТЕ: 
14,1: 
14,1: 
та: 
14 1 
14,1: 
14,1: 
1450 
14 7 


ПА ДЕ 
14,1: 


ГОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


que 
4,17: 
4.32 
6,12: 
таг. 
8000 
9,12: 
10,12: 
LIT 
1J2 712: 
13 2: 
14,12: 
15 7٦ 
16,12: 
11 د سلو‎ 
18 12: 
19 12: 
2012. 
2112 
22 Ша. 
2212: 
627 
үлү: 
LO yas 
LA aT. 
1427 
16:21: 
18 2: 
2022: 


22/21 
8,36: 
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PRINT 


PEINT 


PRINT 


PRINT USING "####.####"; 
PRINT USING "#### .#2##"'3 
PRINT USING "####.##2#" >; 


PRINT USING 


PRINT 


PRINT 


PRENT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT USING "########"; 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


USING 


PRINT USING " 
PRINT USING " 


USING 
USING 
USING 
USING 
USING 
USING 
USING 


AL? 
А2; 
АЗ; 
"E34. 4444"; AA; 
"EREE rr rir 
Neuse gagan, 
رر ںہ‎ 
пада رص بد سے‎ 
пана Ени; 
رو رر ںہ‎ 


NARRE PERR", 
HHHH. HHHH, 
ی ہڈا‎ FEE" | 
NARRE REHE", 
VERRE RERE", 


"ERER RERE", 
NRR RRHH", 
ті аны; 
ЕРНІН; в1; 
НЕННЕ; B2; 
"ЕНІН; BS; 
"ӘРІ"; В4; 
НЕРВЕН"; ВБ; 
"РНН"; В6; 
"ЭН; В7; 
пятна" BS; 
"ӘН"; B9; 


cr, 


30640 
30645 
30650 
30655 
30660 
30665 
30670 
50675 
30680 
CTO; 

30685 
с; 

30690 
ہت 

30695 
ou, 

30700 
C14; 

50705 
615; 

30710 
C 16; 

30715 
30720 
20725 
30730 
50735 
30740 
30745 
29750 
30755 
30760 
30765 
30770 
30775 
30780 
30785 
20790 
80795 
30800 
30805 
308 10 
30815 
30820 
30825 
30830 
20835 
30840 
30845 
30850 
20855 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


14 11 
14,1: 
14,1: 
14,1: 
14,1: 
14,1: 
14,1: 
14 13 
14,1: 
14,1: 
14,1: 
LAL; 
pq lI: 
14,1: 
14,1: 
14,1: 


وط ,14 


14,1: 


14,1: 
14,1: 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


E31 
TO, 36: 
01.36: 
125901 
[3555 : 
ша 36: 
15,36: 
16736: 
17,36: 


18,36: 
19,36: 
20,36: 
21,36: 
22,36: 
23,36: 


8,47: 

Soe: 

9,47: 

9,534 

10,47: 
LOS 
11,47: 
1158; 
12,47: 
то ва: 
13,47: 
13 7٦ 
14,47: 
14 58: 
T5747: 
13 71 
16,47: 
16,533 
17,47: 
Ty ge 
18747: 
LES: 
19,47: 
T9. 593 
20,47: 
0ء2‎ 7 
21,47: 
21,53: 
22,47: 
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PRINT USING B4. 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ERENT 
PRINT 


PRINT 


PRINT 


PRENE 


PRINT 


PRINT 


PRINT 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


USING 


USING 


USING 


USING 


USING 


USING 


PRINT USING 
PRINT USING 
PRINT USING 
PRINT USING 


PRINT 
PRENT 
PRINT 
PRENIE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRENT 
PRINT 
БЕЛИ 
PRINT 
РЕТИ 
PRINT 
PRINT 
PRINT 
PRINTE 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


ео; 

3". mac 
3" СЛ; 
TU C5: 
и"; Сб; 
й! 
2! 
3! 
Я! 


я 
18"; 
пон; 


zH: ° 


"# 
"т 
"я 
"Я 


На 
из 
"i 
III وو‎ 


ТҮТТТІІТІЗ 
"id E d" 
ЕИ: 
"d E E dns 
ННН 
"######.4#"; 


"STET, 
"He"; D2; 
"Set HH I 
"Яғ"; Па; 
VETERE: 
"##"; 06; 
правия"; 
و‎ + ْ 7 
"Sette"? D9; 
"$4"; D10; 
о ВУ. 
"##"; 012; 
"ЧАННЯ"; 013; 
"ae"; 014; 
“Sette? 015; 
"$$"; D16; 
"Рання"; 017; 
"$$"; 018; 
K sina; Dia; 
"##"; D20; 
"ЧАННЯ"; D21; 
"ай"; 022; 
"тй"; 023; 
"ТЯ"; D24; 
"рання"; 025; 
"$4"; D26; 
"c$tttt; D27; 
"int"; D28; 
патяля"; 029; 


ЕВ: 
г o9» 


Puri. 
PTS 
FERAH 
THR HH 
THR HH 
THR HF 
THT HH 
HARRA 


ہد لل نه е‏ 


01; 
03; 
DS; 


D7; 


30860 
30865 
30870 
30575 
30880 
30885 
30890 
30895 
Е5; 
30900 
30205 
Е7; 
30910 
30515 
ва, 
30920 
ЕО, 
320925 
ELE 
30930 
127 
30935 
раз, 
30940 
Е14; 
30945 
Is 
30950 
Bus, 
30955 
Io 
30960 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 
COLOR 


COLOR 
COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


TOTALDIST; 


30965 
30970 
30975 
30980 
Е4; 

30985 
30990 
30995 
31000 
31005 
31010 
31015 
31020 
60000 
60010 


COLOR 
COLOR 
COLOR 
COLOR 


RETURN 


NUMFLDS .SS%=0: 


15,1: 


۶ ]۔ 


ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 


ТОСАТЕ 
ТОСАТЕ 


ТОСАТЕ 
ТОСАТЕ 


ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
ТОСАТЕ 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


- و2 


PRINT USING "j£"; 


D30; 


23,47: PRINT USING "#####"; 031; 


23,53: 


6, 69; 
8, 58 
37697 
LO SS: 
10769: 


12 1595 
12599 


14,58! 
14,69: 


16,58: 
16,69: 
18,591 
18,69: 
20,58: 
207 698 
22 58: 
22,69: 
24,36: 
24 447 
24,53: 


24,58: 
24,69: 


PRINT USING "jj"; 
PRINT USING "4343343333434"; 
PRINT USING "443434433314"; 

PRINT USING "i4 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 
PRENT 
PRINT 
PRINT 
PRENT 
PRENT 
РКТКТ 
PRENT 
PRINT 
PRINT 


РКТКТ 
PRINT 


USING 
USING 


USING 
USING 


USING 
USING 


USING 
USING 
USING 
USING 
USING 


USING 


USING 


USING 


USING 


USING 
USING 
USING 
USING 


٤ ۶ СНЕ 127 ٢‏ 526 ۹۷۷87:58 ×ط 
RESTORE 30470‏ 


RETURN 


D32; 


1323"; 


"ЖЕЕ"; 
"нын; 
"itt tt tt RT 
"линин"; 
"ПИЛЯТИ? 
"ынаны; 
.رر‎ 
"оннан; 
правна. в"? 
"тиин"; 
а F2; 


шаа аа талды 
ptt? 


Е 


Screen Display Initialization Statements 


FILNM.SSS="LLJETLOG.SCR": 


El? 


52% 


ЕЗ 


ЕЗ, 


51-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-Ү-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-) 


£ 
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50020 ' m START OF SCREEN SCULPTOR FULL SCREEN EDITING 
ROUTINE д ۱ 

£0030 ' 
аёёёёёёёёёёёёеёёёёеёёеёёеёеёеёеёёёеёёёеёеёёёеёёёеёёёёеёгёёеёеёёёее 
¥ 


50950 ! б--------------------------- с 
60060 ' ^ Main body of subroutine °° 
60070 ! е мш T š 
60080 ' 


60085 IF SAME.SS$ THEN 60200 'To return to the SAME screen 
with SAME values 


60090 IF SCR.SS%=SCRLST.SS% THEN 60140 ' If same screen as 
last, don't reload 

60100 ' Get screen setup 
parameters 

60105 ON SCR.SS% GOSUB 30205 4000375. 30995 

60110 GOSUB 60550 ' Read field data 
for this screen 

60120 OUT &H3D8 , нї ! Turn off screen 
display 

F 125 ' CALL QUBLOAD(FILNM.SSS) '«- For QuickBASIC, 
See READ.ME file 

60130 DEF SEG=SCRNSEG.SS% : BLOAD FILNM.SSS$,0 :DEF SEG ' 
Load screen picture 

60135 ' Set initial values 

60140 IF INIT.SS% THEN ON SCR.SS% GOSUB 309954. 303105 
30450 

60145 ' Assign current values to screen 
array 

601 55 ON SCR.SS$ GOSUB 30005, 30260, 30410 

60160 OUT 1199 ! Turn on screen 
display 

60170 GOSUB 60590 ' Pad fields with 
blanks and display 

1507775 ' Display initial DISPLAY variables 
60180 ON SCR.SS% GOSUB 303 ٤1170 

60185 OUT &H3D8, &H29 ' Turn on screen 
display 

60190 ! 

60195 F.SS%=1 : SCRLST.SS%=SCR.SS% 

E200 COLOR 7,0:LOCATE 25,1:PRINT BLNK.SSS; "Clr msg from 
prior screen 

60205 IF NUMFLDS.SS%=0 THEN RETURN ве 9 
fields on screen 

оте LOCATE ,,,0,13 'Make cursor 
Size large 

60215 EXSCR.SS%=0 'Initialize 
Flag For Screen Exit 

60220 WHILE NOT EXSCR.SS% 'Loop on each field(until 


Exit Flag is set) 
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60250 GOSUB 60740 i 'Accept input 
data for this field ' 


60260 i 
60265 ' The above subroutine accepts data for a single 
field. The program will return to 


this spot after the cursor exits any 
field on the input screen. 


60270 е 

60275 ' If you want to do any special input field 
testing, this is 

60280 ' a good place to do it. 

60285 1 

60290 ' The following variables are passed back for 
your use: 

60295 F.SS$ is next field to be edited 

60300 FLDLST.SS$ is last field edited 


! 
! 

60305 ' LASTCHR.SS$ is last keyboard character entered 
! 


60310 VL.SS$(n) contains the current value of field 

Du 

60315 | 

60320 -WEND 

60360 ! 

60370 ' 

60390 COLOR 7,0:LOCATE 25,1:PRINT BLNK.SS$;:LOCATE 

25,15:PRINT "... Please WAIT A Moment While Checking Fields 
не 

60400 FOR F.SS$-1 TO NUMFLDS.SS$ ' Test Each Field 

Before Leaving Screen 

60410 GOSUB 62500 ' check contents of 

this field 

60420 IF ERR.MSG%=-1 THEN EXSCR.SS%=0 : GOTO 60220 


"Еггог Detected 
60430 NEXT F.SS% 


60440 F.SS%=FLDLST.SS% 'Reset Field 
indicator 

60450" 

60455 'Assign new 


field values 

60460 ON SCR.SS$ GOSUB 30050, 30285 и 302 30 

60470 RETURN "Exit this 
subroutine 

60480 ' 

60490 

КАК ККЖ eoe eoe oe oe oe eoe eoe oe ХА ХАТ; 
kkkkkkkkkkkkkk 

60500 ! 

605 10! 

60520 KKK kok oke oke oke oke oke oke oke oke oke oe oke oe oke ok oe oke oe oke oke oe oke oe oke oke oe oke oke oke oke oe oke oke ok ok КОК 

60530 ' **** Read Field Data For This Screen ****x 

60540 | kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 

60550 FOR F.SS%=1 TO NUMFLDS.SS% 
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60555 READ 
Г0.55%(Ғ.55%,2),10.55%(Ғ.55%,1),1Е.55%(Ғ.55%),ТҮ.559(Ғ.55%) 
ZPIXC.SS$(F.SSt),RG.SS(F.SS$,1),RG.SS(F.S5$,2) , CL. SSS(F.SS$£, 
1),CL.SS£$(F.SS$,2),SPECCHR.SS$(F.SS£) 

60560 NEXT F.SS% 

60565 RETURN 

60570 ' 


60575 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
* k k k k ko ko 

60580 '*** Pad Fields With Blanks, Insert Special 
Characters, and Display Flds 

60585 

I < k < * * * k k k k k x k k k k k k k k k k k k k k k k k k k k k k k k kk k k k k k k k k k k k k k k kk Ж 
K k k; k k k k k k k k k К 


60590 FOR F.SS%=1 TO NUMFLDS.SS% 


60595 IF TY SSS(F.SS%)="N" THEN 60655 ' This section 
for non-numeric types 
60600 IF LEN(VL.SS$(F.SS%))>LE.SS%(F.SS%) THEN 


VL.SS$(F.SS%)=LEFT$(VL.SS$(F.SS%),LE.SS%(F.SS%)): GOTO 
60610 

60605 

VL.SS$(F.SS%) =VL.SS$(F.SS%)+MID$ (BLNK.SS$,1,LE.SS%(F.SS%) - 
LEN (VL.SS$(F.SS3%) )) 


60610 IF INSTR("CD",TY.SS$(F.SS%))=0 OR 
SPECCHR.SS%(F.SS%)=0 THEN 60690 

60615 CNT .SS%=0 

60620 FOR J.SS%*x=1 TO LE.SS3%(F.SS3) : 
Insert Special chars 

60625 HER 


INSTR ("ULX#89", MIDS (PIC.SS$(F.SS%) ,J7.SS%,1))=0 THEN 
MIDS (VL.SS$(F.SS%) ,J.SS%,1)=MID$ (PIC.SS$(F.SS%) ,J.SS%,1) : 
CNT.SS%=CNT.SS%+1 


60630 IF CNT.SSt=SPECCHR.SS%(F.SS%) THEN 
760690 

60635 NEXT 9.55% 

60640 GOTO 60690 ' End of "non-numeric 
type" section 

60645 ' 

60650 ' ' The following section is 
for numeric types 

60655 NUMDECS=LE.SS%(F.SS%) -INSTR(PIC.SS$(F.SS%),".") 
' Calc 4 of dec places 

60657 IF LEFT$(VL.SS$(F.SS$),1)2" " THEN 


VL.SS$(F.SS%)=RIGHTS (VL.SS$(F.SS%) , LEN(VL.SS$(F.SS%))-1) ' 
Strip leading blank 

60660 IF NUMDEC%=LE.SS%(F.SS%) THEN NUMDEC%=0: 
NUMINTS=LE.SS%(F.SS%) ELSE NUMINTS=LE.SS%(F.SS%) -NUMDEC$-1 
' Calc # of interger places 

60665 IF VAL(VL.SS$(F.SS%) )=0 THEN 
VL.SS$(F.SS%) =LEFTS (MID$ (BLNK.SS$,1,NUMINT%- 
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1)+"0."+STRINGS (NUMDECZ,"0") , LE.SS%(F.SS%) )! GOTO 60690 

' If no initial value 

60670 DEC. VL$=INSTR(VL.SS$(F.SS%),".") : IF 
DEC.VL%=0 THEN DEC.VL%=LE.SS% (F.SS%) +1 

' Position of decimal point in data 

60675 

VL.SS$(F.SS%) =LEFTS (RIGHTS (MID$ (BLNK.SS$,1,NUMINT$) +LEFTS$ (V 
L.SS$(F.SS%) , DEC. VL%=- 

1) ,NUMINTS) +". "+MIDS$ (VL.SS$(F.SS%) , DEC. VL$+1) +STRINGS (NUMDE 
cz, "O") ТЕ. 55% (Е.55%)) 

60680 ! 

60685 ' 

60690 GOSUB 62310 ' Display Contents Of This 
Field 

60695 NEXT F.SS% 

60700 RETURN 

60705 1 

60710 ! 

ال 67,153 

*de 3e e e e de de de de de de de de de e e de e de e de e سل اب‎ e de eode ما‎ eoe de deck پا‎ eode dee de e de ke kx x x پل‎ 

607208 *** Accept Input Data For The Current 
Field *** 

6072501 

kn < kx x‏ با e de ce de de oe de de de eoe de eoe — e de e eoe de dece de de deck‏ ياو ياو ياو يلو يلو يلو ياو يلو Xe de e e e e‏ پګ 

607908 

60740 IF TY.SSS(F.SS$)«»"N" THEN A.SS$-1 : GOTO 60790 


60750 NEWNUMZ-2-1:NUMED.SS£- 'Set Flags for num 
Ela : 

60760 DECPOS%=INSTR(PIC.SSS(F.SS%),".") : IF DECPOS%=0 
THEN DECPOS%=LE.SS% (F.SS%4) +1 

60770 A.SSZ-DECPOSZ-1 

60780 ' ' Look for поп- 


edit characters 
60790 WHILE INSTR("ULX#98",MIDS (PIC.SS$(F.SS%),A.SS%,1))=0: 
A.SS%=A.SS%+1: WEND 


60800 CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1 ' Fina cursos 
position on screen 

60810 LOCATE 10.555) 7.553 ,1( 0 h ' Starting 
position in this field 

60820 \' 

60830 FLDLST.SS% = F.SS% ' Reset field 
indicator 

60840 EXFLD.SS%=0 ' Initializei flag 
to exit this field 

60850 WHILE NOT EXFLD.SS% ' Loop while still 
editing this field 

60860 Х.555-ІМКЕҮ5 : ІҒ Х.555-"" ТНЕМ 60860 ' Wait for 


next keyboard character 

60870 IF ERR.MSG% THEN ERR.MSG%=0 : COLOR 7,0:LOCATE 
25,1,0:PRINT STRINGS(79," "); 

' Erase old message line. 
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60880 ТЕ LEN(X.SS$)»1 OR 

INSTR (CHRS (8) +CHRŞ$ (13) +CHRS (27) ,X.SS$) <>0 THEN 
X.SS$-RIGHTS$(X.SS$,1) ELSE 60960 
Extented code key pressed? 

60885 ON INSTR(";<=>?@ABCD",X.SS$) GOSUB 
61100,61100,61100,61100, 61100, 61100,61100,61100,61100,61100 
' This is a DUMMY.statement. It traps the Function Keys 
(Fl - F10). It is here to make user modifications simpler. 


60887 ' For the above line to be active, you 
need to set all Function Key values to null. i.e.- KEY 
чм ; KEY D ес. 

60890 7۶۰۲۷۰۰55 ۲۶۰۹5 ج‎ ( - <۰ 0 TE 
numeric, need special test 

60900 ТЕ 110 "СО", Х.555)--0 THEN 61030 ' Codes 
not valid for numeric 

60910 IF INSTR("RKM"-CHR$(8),X.SS$)«»0 THEN 
NUMED.SS%=-1: NEWNUM%=0 

60920 IF INSTR(EXITCHR.SSS$,X.SS$)<>0 THEN EXFLD.SS%=- 
1:ЕХ5СК.55%--1:СОТО 61040 "Check CODE со EXIT SCREEN 
60930 ON INSTR("MKHPGRSO"+CHR$ (8)+CHR$ (13) ,X.SS$) 
GOSUB | 


ВА, 61120,61210,61260,61650,61440,61300,61600,61140,61260 
: 60٥ 61020 

60940 GOTO 61030 ' Invalid extended code 
key pressed 

50950 ! 

60960 ھ۲۰۷٠‎ ۹. )۶ ۰۶۹5۹ "۷۱ء رع‎ AND X.SSS="." THEN 

NEWNUM%=0 :NUMED.SS%=<-1: GOTO 61010 

60970 IF ASC(X.SS$)<32 OR ASC(X.SS$)>126 THEN 61030 
Invalid characters 

60980 GOSUB 61750 :IF ERR.MSG$ THEN 61030 ' Non-spec char 
entered: Test entry 

60990 GOSUB 62230 ' Add char to 
this field 

61000 GOSUB 62310 ' Print new 
field 

61010 GOSUB 62380 ! Move cursor 
to next position 

61020 IF ERR.MSG% THEN 60740 ! Tf error re- 
edit this field 

61030 WEND 

61040 LASTCHR.SSS=X.SSS ! Set last 
character indicator 

61050 RETURN ۶۰ ۹ ۰ 
editing this field 

610607 

51070 
Ikkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkěákkkkkkkkkkkkkkkkkkkkkkkkkkk‏ 
بو باو یلو چاو باو لو او باو باو باج باج باو باو 


61080 '**** THE FOLLOWING SUBROUTINES HANDLE EXTENDED 
KEYBOARD COMMANDS 7 
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61090 
VK KK KKK KK KK KKK KK IK KKK KIRKE RR پل پل پا پا پا‎ e kk پل پل‎ e ke e e چا چا پا‎ ke ke ke 
kkkkkkkkkkkkk 
61095 ١ *** DUMMY Subroutine for Function Keys (Fl - F10) 
61096 ' *** This is here for user modifications * kk 
61100 RETURN 
61105 '*** Cursor right *** 


61110 GOSUB 62380 ' Move cursor to next 
position 

61120 RETURN 

61130 '*** Cursor left or backspace *** 

61140 IF CURCOL%=LO.SS%(F.SS%,2) THEN 61210 'Goto 
prior rela 

61150 IF TY.SSS(F.SS$)-"N" AND INSTR(" +- 

" MID$(VL.SS$(F.SS%) ,A.SS%,1))<>0O THEN RETURN 

61160 CURCOL%=CURCOL%-1:A.SS%=A.SS%-1 

'Pos of char in field 

61170 IF INSTR("ULX#89",MIDS$ (PIC.SS$(F.SS%) ,A.SS%,1) )=0 
THEN 61140 'Spec char? 

61180 LOCATE LO.SS%(F.SS%,1) , CURCOL%,1 

61190 RETURN | 

61200 '*** Cursor up *** Move to next field left 
61210 GOSUB 62500 ' Edit check field 
data before leaving 

61220 IF ERR.MSG% THEN RETURN ' Error found 
61225 ЕХЕІр.55%--1 ' Set ۶184 ШЕ 
this Field 

61230 IF F.SS$»1 THEN F.SS$-F.SS$-1 ELSE 
F.SS*=NUMFLDS.SS% ' Goto 
026 7 

61240 КЕТОКК 


61250 '*** Cursor down or carriage return - Advance to next 
field *** 


61260 GOSUB 62500 ' Edit check fied 
data before leaving 

61270 IF ERR.MSG$ THEN RETURN ' Don't leave field 
if error was found 

61275 EXFLD.SS%=-1 ' Set Flag ٥ 
this Field 

61277 IF F.SS%=NUMFLDS.SS% AND 


INSTR(EXITCHR.SSS,CHRS(127))<>0 THEN EXSCR.SSZ--1 "Test to 
leave screen alter lasce leld 


61280 IF F.SS%<NUMFLDS.SS% THEN F.SS%=F.SS%+1 ELSE 
F.SS%=1 ' Increment fld num to 
next fld 

61290 RETURN 

61300 ! **** Del key pressed ****** 

617" ' Start Del routine for Numerics ttagen 


left of decimal pt 
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۶۰۰٢۰ IF TY.SSS(F.SS%)="N" AND A.SS%<DECPOS% THEN 

MIDS (VL.SS$(F.SS%),1)="" "+LEFTS$(VL.SS$(F.SS%) ,A.SS3- 
1)+RIGHTS (VL.SS$(F.SS$%) , LE.SS%(F.SS%) -A.SS%): GOTO 61420 
61330 ! ' Start Del routine for Numeric fld on 
Echt of decimal pt 

61340 IF TY.SS$(F.SS%)="N" THEN 

MIDS (VL.SS$(F.SS%) ,1)=LEFTS$ (VL.SS$(F.SS%) ,A.SS%- 

1) +МІр$(У1.55$(Е.55%),А.55%+1,1Е.55%(Е.55%) -А.55%) +"0" 
СОТО 61420 

61950 ' ' Start Del routine for fld w/o non- 
edit chr 

61360 IF SPECCHR.SS4%(F.SS%)=0 THEN 

MID$ (VL.SS$(F.SS%) ,1)=LEFTS$(VL.SS$(F.SS%) , ہ88 ھ‎ 

1) +МІр$(У1.55$(Е.55%),А.55%+1,1Е.55%(Е.55%) -А.55%)+" " 
СОТО 61420 

ENSO ' 

61380 CNT.SS%=0 ' Start del routine for 
fld with non-edit chr 

61390 WHILE 

INSTR ("ULX#89",MID$ (PIC.SS$(F.SS%) ,A.SS$+1+CNT.SS%,1))<>0 
AND CNT .SS@<LE.SS%(F.SS%)-A.SS% : СКТ.553+СНТ.553+1 : WEND 
' Count until next non-edit chr 

61400 VL.SSS$(F.SS$)-LEFTS(VL.SSS$(F.SS$),A.SS$- 

1)+MIDS$ (VL.SS$(F.SS%) ,A.SS%+1,CNT.SS%) +" 

"+RIGHTS (VL.SS$(F.SS%) , LE.SS% (F.SS%) -A. SS%¥-CNT.SS3) 
New value for field 

вето ' 

61420 CURCOLZZzCURCOLZ-1:A.SS2-A.SSZ2-1:GOSUB 62340:GOSUB 
62380 'Print fld; Set cursor 

61430 RETURN 

61440 ' ***** Ins key pressed *** 

61450 ' ! Start Ins routine for numeric field on 
leftside of dec pt 

61460 IF TY.SSS(F.SS%)="N" AND A.SS%<DECPOS% THEN 

MIDS (VL.SS$(F.SS%) ,1)=MID$(VL.SS$(F.SS%) ,2,A.SS%- 
1)+"0"+RIGHTS (VL.SS$(F.SS%) , LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 

61470 ' ' Start Ins routine for numeric field on 
rightside of dec pt 

61480 IF TY.SS$(F.SS%)="N" THEN 
VL.SS$(F.SS%) =LEFT$ (VL.SS$(F.SS%) ,A.SS$- 
1)+"0"4+MID$(VL.SS$(F.SS%) ,A.SS%, LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 

61490 ! ' Start Ins routine for non-numeric w/o 
non-edit characters 

61500 IF SPECCHR.SS%(F.SS%)=0 THEN 
VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS%) ,A.SS$-1) +" 

"4+MIDS (VL.SS$(F.SS%) ,A.SS%, LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 = | 

61510 ! ' Start Ins routine for non-numeric with 
non-edit characters 
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61520 NEWVLS$-LEFT$(VL.SS$(F.SS$),A.SS$-1)-4" " : 
NEXTCHRS$=MID$ (VL.SS$(F.SS%) ,A.SS%,1) 

61530 FOR I%=A.SS%$+1 TO LE.SS%(F.SS$) 

61540 Х.55%-МІр%(РІС.55%(Ғ.55%),1%,1): ІҒ 
INSTR("ULX$89'",X.S5$)-0 THEN NEWVLS=NEWVLS+X.SSS$ : GOTO 
61570 

61550 NEWVLS=NEWVLS+NEXTCHRS : 

NEXTCHRS=MID$ (VL.SS$(F.SS%) ,1%,1) 

61560 NEXT I$ 

61570 

VL.SS$(F.SS%) =NEWVL$+MID$ (VL.SS$(F.SS%) , 1%$+1,LE.SS%(F.SS$) ) 
61580 CURCOL%=CURCOL%-1:A.SS%=A.SS%$-1:GOSUB 62310:GOSUB 
62380 ' Print fld; Set cursor 

61590 RETURN 

61600 ' ***** END key pressed ***** 

61610 CURCOL$-LO.SS$(F.SS$,2)-LE.SS$(F.SS$)-1 : 
A.SS%=LE.SS%(F.SS3%) 

61620 WHILE INSTR("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%,1))=0 


:A.SS$-A.SS$-1:CURCOLS-CURCOL$-1: WEND ' Lock 7 
special protected characters 
61630 LOCATE LO.SS%(F.SS%,1) , CURCOL%,1 ' Starting 


position in this field 
61640 RETURN 


61650 ' **** HOME key pressed **** put cursor at beginning 
of field 

61660 A.SS%=1 'Find cursor position for 
this field 

61670 WHILE INSTR("ULX#89",MIDS (PIC.SS$(F.SS%) ,A.SS%,1))=0 
: А.553+А.553+1 : WEND ' Look for special protected 
characters 


61680 CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1 

61690 LOCATE LO.SS%(F.SS%,1),CURCOL%,1 ' Starting position 
in this field 

61700 RETURN 

61710 ' 

6 7 

* بل بل بل بل بل بل بل بل مل بل با بل k‏ بل با k‏ با بل با با ما با سا سا * ما مل ما * * * * * * * k k k k k * k‏ * * بل * 

61720 7 **** ROUTINE TO EDIT-TEST CHARACTER ENDES 
жжжж 

61730 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

61740 '***Check for special character type conversion*** 
61750 ON INSTR("NDMY",TY.SSS(F.SS%)) GOTO 

61790,62100, 62000, 61950 

61760 ON INSTR("ULX#89",MIDS(PIC.SSS(F.SS%) ,A.SS%,1)) GOTO 
61890,61920,62130,61800, 62060” 62100 

61770 PRINT "EDIT PICTUREWEYPE 
";МІр%(РІС.55%(Ғ.55%),А.55%,1);" МОТ ҒООМЫ" : STOP 

6 9 ٦ 

61790 'x** Numeric values; LN; nan TS 
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61800 ' NOTE: The decimal point is trapped in the"Accept 
парас data" routine | 
61810 IF X.SSS»z"0" AND X.SS$«z"9" THEN RETURN 


61820 ІК Х.5554»"4" AND X.SS$«»"-" AND Х.555<>" " THEN 
61850 ' Is this a + or - sign? 

61830 IF TY.SSS(F.SS£)-'"C" THEN RETURN ' +,-," " allowed 
anywhere in C type 

61840 ТЕ LEFTS(VL.SS$(F.SS%) ,A.SS%-1) =SPACES$ (A.SS%¥-1) OR 
A.SS$-1 THEN RETURN 

61841 ' N MEN and "=" sign only allowed in 
beginning of number 

61850 MSG.SSS="" Only numeric values can be entered here. 
Please re-enter. " 

61860 GOSUB 62180 : RETURN ' Print error message; 
Ext 

61870 ' 


61880 '*** Upper case or any other character*** 
5۷890 ITF ASC(X.SS$)>96 AND ASC(X.SSS$)<123 THEN 
X.SSS=CHRS$ (ASC (X.SS$) -32) 

61900 GOTO 62130 

61910 '*** Lower case or any other character*** 
61920 IF ASC(X.SS$)>65 AND ASC(X.SS$)<91 THEN 
X.-SSS=CHRS (ASC (X.SS$)+32) 

61930 GOTO 62130 

61940 '!*** Y/N answer only*** 


КИ ТЕ Х.555-"Ү" ОБ Х.555-!"у!" ТНЕМ Х.555-"Ү" : СОТО 62130 
61960 IF X.SSS="N" OR X.SSS="n" THEN X.SSS="N" : GOTO 62130 
61970 MSG.SSS="" Only !У! or 'N' can be entered here. 
Please re-enter. " 

61980 GOTO 62180 ' Print error message 

61990 '!*** M/F answer only*** 

62000 IF X.SSS="M" OR X.SSS="m"" THEN Х.555="М" : СОТО 62130 
62010 IF X.SSS="F" OR X.SSS="£" THEN X.SSS="F" : СОТО 62130 
62020 MSG.SSS="" Only 'M' or 'F! can be entered here. 
Please re-enter. " 

62030 GOTO 62180 ' Print error message 

62040 ! 

62050 ' *** Numeric values only **** 

62060 IF (ASC(X.SS$)>47 AND ASC(X.SS$)«58) THEN GOTO 62130 
62070 MSG.SS$z" Only numeric values can be entered here. 
Please re-enter. " 

62080 GOTO 62180 ' Print error message 

62090 ' *** Numeric values and " " only *** 


62100 IF (ASC(X.SS$)>47 AND ASC(X.SS$)<58) OR X.SSg-" " 
THEN GOTO 62130 


62110 MSG.SS$z" Only numeric values or blanks can be 
entered here. Please re-enter. " 

62120 СОТО 62180 ' Print error message 

62130 RETURN 

62140 ' 

62150 ! šžkšžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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62160 ! **** Print Error Messages ****** 

62170 ' kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62180 ERR.MSG%=-1 : SOUND 500,SD.SS%*1:LOCATE 25,INT(81- 
LEN (MSG.SS$))/2,0 :COLOR 0,7:PRINT MSG.SS$;: LOCATE 

19.553 (2.595, 1). Се 1 

62190 WHILE INKEYS«»"" : WEND ' Clear input buffer 
after error 

62200 RETURN 


62210 " 

62220 ! X X de ХХХ 
62230 ! **** Add character to current field *****x 
62240 ххх Je Je e eee ما ما اه ما ما‎ eoe oe eee ee eoe dede de و لو لو لو لو او او ياو يلو ياو باو او‎ 


62250 IF TY.SSS(F.SS%)="N" AND NEWNUM% THEN 

MIDS (VL.SSS(F.SS¢) 2) =MIDS ( BEN ec 
1)+X.SSS+". "+STRINGS (LE.SS%(F.SS%) ,"0") : NEWNUM%=0 : 
RETURN ' Restart fld - New num 

62260 IF TY.SSS(F.SS%)<>"N" OR NUMED.SS%=-1 THEN 
MIDS(VL.SSS(F.SS5S),A.SS%,1)=X.SSS : RETURN 


62270 IF LEFTŠ(VL.SS$(F.SS%),1)=" " THEN 
МІр65(У1,.55%(Е.55%),1,А.55%)-МІр6(У1І,.55%(Е.55%),2,Ал.55%- 
1) +Х.888 ELSE NUMED.SS%=-1 : GOTO 62260 ' даа 


character to left of decimal place 

62280 RETURN 

62290 ! 

62300 "e ke f e ck eek e e e e e e A A A x Gk 

62310 '*** Print new value of field *** 

62320 !** x WÑ Ww 

68 —) 

62340 COLOR CL.SS$(F.SS$,1),CL.SS$(F.SS$,2) ' Set 
color for this field 

62350 LOCATE Г0.55%(Ғ.55%,1), 0,585 (Е.5552) 0 ہ٣‎ 
VL.SS$ (E. SSS); О Рита 

62360 RETURN 

6 

بل بل جا بل او کاو باو ماو باو ماو ماو ماو باو عاو باو عاو باو باو WW‏ اګ m W wq W‏ پر m‏ **' 62370 

62380 !**** Move cursor to new location жхжх 

62390 4) kk dede de de e مل‎ ke ما با سا بل‎ deck ke ke ee e e ce e e بل‎ e e بل بل‎ 

62400 IF TY.SSS(F.SS$)«»"N" OR NUMED.SS%<>0 THEN 62420 
62410 IF LEFTS(VL.SSS(F.SS$),1)«»" " THEN NUMED.SS$--1 
ELSE A.SS%=DECPOS%-1: CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1: LOCATE 
LO.SS%(F.SS%,1) ,CURCOL%,1 : RETURN 

62415 ! 

62420 IF A.SS%<LE.SS%(F.SS%) THEN 

A.SS%=A.SS%+1: CURCOL%=CURCOL%+1 ELSE GOSUB 61260 : RETURN 
' Advance cursor or go to next field 


62430 IF INSTR("ULX#89",MIDS (PIC.SS$(F.SS%) ,A.SS%,1) )=0 
THEN 62420 

62440 LOCATE LO.SS%(F.SS%,1) , CURCOLY,1 

62450 RETURN 

62460 ! 

لو او باو لو او باو بو باو باو لو لو پار پار لو باو باو باو باو لو باو پار لو بو پو او باو باو باو ڀلو باو او لو ڀلو پو او لو پو ڀلو l‏ 62470 
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E80 | хх» Edit check final field result *** 

62490 | Xe Je Je e e oe e e لد لن عا‎ eode de با‎ e سل‎ dede de de de de de de dede de dede dee x باو یلو‎ kx k& k 

ВОО ТЕ TY.SSS(F.SS$)«»"N" THEN 62540 Ш ерес numeric 
input range 

62510 IF VAL(VL.SS$(F.SS%) )>RG.SS(F.SS%,2) THEN 
MSG.SSS="" The maximum value allowed in this field is 
"+STRS (RG.SS(F.SS%,2)): GOSUB 62180 : RETURN 'Print Err 
Msg 

62520 IF VAL(VL.SS$(F.SS%) )<RG.SS(F.SS%,1) THEN 
MSG.SSS="" The minimum value allowed in this field is 
"4+STRS (RG.SS(F.SS%,1)): GOSUB 62180 : RETURN ‘Print Err 
Msg 

62530 ' 

(ЕО ТЕ ТҮ.555(Ғ.55%)<>!"І!" THEN 62720 ' Date edit 
check 

62550 ТЕ УІ.555(Ғ.55%)-" 7 / “THEN 62720 

' No check 

62560 i 
DT.SS-VAL(RIGHTS$(VL.SSS$(F.SS$),2)«-LEFTS$(VL.SSS$ (F. S82) , 2) «MI 
D$(VL.SS$(F.SS%) ,4,2)) 

62570 IF 
INSTR(''01,02,03,04,05,06,07,08,09,10,11,12", LEFT$(VL.SS$(F. 
55%),2))<>0 THEN 62590 


62580 MSG.SSS=""Invalid MONTH in date entered. Please 
5۶-۰-٥627," : ظ6050‎ 62180 : RETURN | 
62590 ТЕ NWISUPIMIDS(VE.SSS(BSSS$),42,2)," ")ш0 AND 


VAL(MIDS(VL.SSS$(F.SS$),4,2))»0 AND 
VAL(MIDS(VL.SS$(F.SS$),4,2))«32 THEN 62620 


62600 MSG.SSS=""Invalid DAY in date entered. Please 
re-enter.'':GOSUB 62180:RETURN 

62610 ! 

62620 IF RG.SS(F.SS%,1)=0 AND RG.SS(F.SS%,2)=0 THEN 
62720 !" No check 

62630 TE ٢: 5556 2۷.55) ۳.55 1( THEN 62680 
'Does date cross century? 

62640 IF DT.SS>=RG.SS(F.SS%,1) AND 

DI SS<=RG.SS(F.SS%,2) THEN 62720 

62650 D1.SS$-STR$(RG.SS(F.SS£,1)) 
D2.SS$-STR$(RG.SS(F.SS£,2)) 

62660 MSG.SSS=""The date should be between 


"4+MID$(D1.SS$,4,2)+"/"+RIGHTS (D1.SS$,2)+"/"4+MID$(D1.SS$,2,2 
y+" and 

"4+MID$(D2.SS$,4,2)+"/"+RIGHTS (D2.SS$,2)+"/"+MID$ (D2.SS$,2,2 
) :GOSUB 62180 : RETURN 


62670 ' 

62680 IF DT.SS»-RG.SS(F.SS$,2) OR DT.SS«-RG.SS(F.SS£, 1) 
ШИЕМ 62720 

62690 р1.55%-5ТК%(ВСс.55(Ғ.55%,2)) 
D2.SS$2STR$(RG.SS(F.SS£,1)) 

62700 MSG.SSS=""The date should be between 


"+MID$ (D1.SS$,4,2)+"/"+RIGHTS (D1.SS$,2)+"/"+MID$ (D1.SS$,2,2 
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тағала 
"+МТ08 (02.555,4,2) + "/"+ВТСНТО (02.555,2) +"/"+-МТО5 (02.59 2 
) :GOSUB 62180 : RETURN 


62710! 

62720 RETURN 

کک ا ماو پار ماج ماج ماج بلج بار علج باج ماج ملو ملو یلو ماو یلج باو باو ماو ملو ماو یلو با او علج عاو ماو یلج یلو الو علج علج ماو ملو باو باو بلج باو بار علو مار ملو ملو بار بلج باو ملو لي ! 62860 
Test If Monochrome or Color/Graphics Monitor **‏ ** ' 62870 
لہ ХХхХхХХХХХХХХХХХ ХХХ ХХХ ХАС‏ ! 62880 


62890 DEF SEG-&H40 

62900 MONO.SS-(PEEK(&H10) AND &H30)-&H30 
62910 IF MONO.SS THEN SCRNSEG.SS$-&HBOOO ELSE 
SCRNSEG.SS%=&HB800 

62920 RETURN 


پل بل بل بل e‏ بل بل بل e e‏ بل e e e‏ بل e‏ بل بل n e e e‏ بل kf de de‏ پا ارا ١‏ 62930 
Error Handling Routine ۳7‏ ** ' 62940 
پل بل بل بل بل بل بل بل بل بل بل با بل بل بل پا بل x‏ ماو مل باو باو باو ملو بل باو لو لر ملو لي ! 62950 
This routine is used mostly to turn the screen‏ ' 62960 


display back on if 
62970 ' a serious problem (such as the screen image file 
not found #occu > 


62980 CLS:OUT &H3D8, &H29 ' Turn screen display BACK 
ON IE SEE 
62990 'The following checks for disk 


file errors 

63000 IF NOT (ERR=53 OR ERR=57 OR ERR=66 OR (ERR>70 AND 
ERR<77)) THEN 63030 

63010 LOCATE 10,1:PRINT"There is a problem finding a 
file on the disk. Error code="+STRS (ERR) 

631020 LOCATE 11,1:PRINT"(HINT:Check disk for .SCR 
fille) ": PRINT 

63030 ON ERROR GOTO 0 ' Reset BASIC ERROR handling 
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6660 
6661 


15,0, 


1 % % یلد بل یلا‎ NAVIGATION SUBROUTINE xxx xx 
SCREEN 0,1,1,0:COLOR 15,0,4:SCREEN 0,1,0,0:COLOR 
4:CLS : CONTROL1=0: TOTALDIST=0: PRINT 


"~K={ BACK} , KEYFIX,NOESC,NOMOVE/" 


6662 


PRINT "~W=LOADOPT/":SCREEN ,,3,0:INPUT Z:IF Z=2 THEN 


CHAIN “FILEHALF", , ALL 





SESS SCREEN 0,1,0,0: COLOR 15,0,4: CLS: PRINT:ON ERROR GOTO 

8600 i 

6664 PRINT TAB(20) "INPUT FORMAT => DEG MIN 
SEC" 

6665 PRINT 

6666 PRINT TAB(20) "SELECT THE GEOGRAPHIC DATA FOR YOUR 

LAT/LONG POINTS" 

6667 PRINT 

6668 LOCATE 8,25:INPUT "LATITUDE IS N OR S ";GEOLATS 

'South is negative 

6669 LOCATE 10,25:INPUT "LONGITUDE IS W OR E ";GEOLONGS 


'East is negative 


6670 LOCATE 12,25:INPUT "MAGNETIC VARIATION IS W OR E 
"|МУАВТУРЕЗ 

6671 IF GEOLATS="n" THEN GEOLATS="N" 

6672 IF GEOLATS="s" THEN GEOLATS="S" 

6673 IF GEOLONGS="w" THEN GEOLONGS="W" 

6674 IF GEOLONGS="e" THEN GEOLONGS="E" 

6675 IF MVARTYPES="w" THEN MVARTYPES="Ww" 

6677 IF MVARTYPES="e" THEN MVARTYPES="E" 

6678 LOCATE 15,20:INPUT "ENTER THE NUMBER OF NAVIGATION 


ВИТЬ" > N:CLS 


6679 


2,74: 


6680 
6681 


LOCATE 2,25:PRINT "NAVIGATION POINT DATA INPUT": LOCATE 
ERINT PAGE I" 

LOCATE 4,1 

FOR I-1 TO N 


6682 IF I-10 THEN SCREEN ,,1,0 'WRITE TO 
PAGE 1 

6683 IF I=10 THEN CLS:IF I=10 THEN LOCATE 2,74:IF I=10 THEN 
PRINT "PAGE 2" 

6684 IF I=10 THEN LOCATE 4,1 

6685. PRINT TAB(5) "POINT #";I;TAB(19) " | РЕС _ MIN 
| — SEC ";:COLOR 14:PRINT GEOLAT$:COLOR 15 

6686 PRINT TAB(19) "  J DEG _ MIN 0 >; COLOR 
14:PRINT GEOLONGS;:COLOR 15:PRINT " MVAR- БЕС 
";:COLOR 14:PRINT MVARTYPES$:COLOR 15 

6687 NEXT I 

6688 IF N>9 THEN SCREEN ,,0,0 ‘WRITE TO 
PAGE 0 

6689 COLOR 12 

6690 J=3 

6691 FOR I-1 TO N 

6692 IF I<=9 THEN K=I ELSE K=I-9 

6693 IF I>9 THEN SCREEN ,,1,1 'DISPLAY and 


WEITE TO PAGE 1 
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6694 IF I>9 THEN J=K+2 

6695 NAVDATA(I,1)=I 

6696 LOCATE K+J,18,1,0,7:INPUT " 

" LATDEG: NAVDATA(I,2)=LATDEG 

6697 LOCATE K+3,30,1,0,7:INPUT " 

" LATMIN: NAVDATA(I,3)=LATMIN/60 

6698 LOCATE K+J,41,1,0,7:INPUT " 

" LATSEC:NAVDATA(I,4)=LATSEC/6000 

6699 LOCATE K+J+1,18,1,0,7:INPUT " 

" LONGDEG: NAVDATA(I,5) =LONGDEG 

6700 LOCATE K+J+1,30,1,0,7:INPUT " 

", LONGMIN:NAVDATA(I,6)-LONGMIN/60 

6701 LOCATE K+J+1,41,1,0,7:INPUT " 

"  LONGSEC: NAVDATA (I,7)-LONGSEC/6000 

6702 LOCATE K+J+1,62,1,0,7:INPUT " ",MVAR:IF 
(MVARTYPES="E") OR (MVARTYPES="e") THEN 

NAVDATA (I,8)=MVAR*(-1) ELSE NAVDATA(I,8)=MVAR 
6703 J=J+1 

6705 WAYPTS(I,1)=I 

6707 WAYPTS (1,2) =LATDEG+LATMIN/100+LATSEC/10000 
6709 WAYPTS (I,3)=LONGDEG+LONGMIN/100+LONGSEC/10000 
6720 NEXT I 

6730 IF N>9 THEN SCREEN ,,0,0 'DISPLAY and 
WRITE TO PAGE 0 

6740 GOSUB 7660:IF SELECTFLAG%=2 THEN ERASE 
NAVDATA, COORD,WAYPTS:CHAIN "TOPHALF",103,ALL 


67 

6750 "LOCATE 7 ,۹ شر‎ DO "SCREENS апа 1 
ARE SAVED FOR LAT/LONG 

6760 ' NOTE: 'SCREEN 2 IS NOW 


THE APAGE, VPAGE 

6770 ' EDIT INPUT DATA USING WINDOWS 

6790 ! 

6800 ' COORDINATE COMPUTATIONS 

6810 ! 

6820 COLOR 15,1 

6840 COORD(1,1)=1:COORD(1,2)=0:COORD(1,3)=0 

6850 FOR I=1 TO N-1 

6860 L1=NAVDATA(I,2)+NAVDATA(I,3)+NAVDATA(I,4) 

6870 IF (GEOLATS="S") OR (GEOLATS="s") THEN L1=L1*(-1) 
6880 L2=NAVDATA(I+1,2)+NAVDATA(I+1,3)+NAVDATA(I+1,4) 
6890 IF (GEOLATS="S") OR (GEOLATS="s") THEN L2=L2*(-1) 
6900 LAMBDA1=NAVDATA(I,5)+NAVDATA(I,6)+NAVDATA(I,7) 
6910 IF (GEOLONGS="E") OR (GEOLONGS$="e") THEN 
LAMBDA1=LAMBDA1* (-1) 

6920 LAMBDA2=NAVDATA(I+1,5)+NAVDATA(I+1,6)+NAVDATA(I+1,7) 
6930 IF (GEOLONGS="E") OR (GEOLONG$="e") THEN 
LAMBDA2-LAMBDA2* (-1) 

6940 GOSUB 7040 

6950 COORD(I+1,1)=I+1 

6960 COORD(I+1,2)=D 
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6970 


COORD (I+1,3)=HDG+NAVDATA (I+1,8) 


' COMPUTE MAGNETIC HDG 


6975 


IF COORD(I+1,3)<0 THEN COORD(I+1,3)=360+COORD(I+1,3) 


"DISPLAY MAGHDG 


6980 
6981 
6982 
6983 
6984 
6990 
7000 
7012 
7O15 
7040 


NEXT I 
FOR I-2 TO N 
TOTALDIST-TOTALDIST-COORD(I,2) 
NEXT I 
' CRUSDATA (26) =TOTALDIST 
PRINT "-K-(BACK)/" 
' PRINT RESULTS 
GOSUB 8000 
GOSUB 8200 
'ekk***x**k** NAVIGATION COMPUTATION SUBROUTINE 


kkkkkkkkkk 


7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 


PI=3.141593 

Ll-L1*PI/180 

L2=L2*PI/180 

LAMBDA1=LAMBDA1*PI/180 

LAMBDA2-LAMBDA2*PI/180 

DEF FNARCCOS (X) =1.570796-ATN (X/SQR(1-X*2) ) 

X= (SIN (L1) *SIN (L2) +COS (L1) *COS (L2) *COS (LAMBDA2- 


LAMBDA1)) 


7130 
7140 
ОО 
7155 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 


D-60*FNARCCOS (X) *180/PI 

Y=(D/60) *PI/180 
Z-(SIN(L2)-(SIN(L1)*COS(Y)))/(SIN(Y)*COS(L1)) 
IF Z»1 THEN Z-1 

HDG-FNARCCOS (Z) *180/PI 

IF (SIN(LAMBDA2-LAMBDA1)>=0) THEN HDG=360-HDG 
RETURN 

STOP 

پاپ چا چا چاو چا چان چاو پا پا پل Ikkkkkkkkkk SUBROUTINE DBLBOX‏ 


' ТОР = КОМ NUMBER OF UPPER LEFT CORNER 

' LEFT = COLUMN OF UPPER LEFT CORNER 

' WIDTZ = WIDTH OF BOX 

' HEIGHT = HEIGHT OF BOX 

! 

ВОТТОМ = ТОР + НЕТСНТ 

RIGHT = LEFT + WIDTZ 

! 

' LOCATE AND PRINT THE CORNERS OF THE BOX 

! 

LOCATE TOP, LEFT 

PRINT  CHR$(201) 'PRINTsS upper left corner 

LOCATE TOP, RIGHT 

PRINT CHRS (187) 'PRINTS upper right corner 
LOCATE BOTTOM, LEFT 

PRINT CHRS (200) 'PRINTs lower left corner 

LOCATE BOTTOM, RIGHT 

PRINT CHRS (188) 'PRINTs lower right corner 
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1390 2 

7400 ' DRAW THE TOP, BOTTOM, AND SIDES OF THE BOX 

7410 ' 

7420 FOR COL = (LEFT + 1) TO (RIGHT - 1) 'top and 
bottom 

7430 LOCATE TOP, COL 

7440 PRINT CHR$(205) 

7450 LOCATE BOTTOM, COL 

7460 PRINT CHR$ (205) 

7470 NEXT COL 

7480 FOR ROW = (TOP + 1) TO (BOTTOM - 1) 'left and 
right sides 

7490 LOCATE ROW, LEFT 

7500 PRINT CHR$(186) 

7510 LOCATE ROW, RIGHT 

7520 PRINT CHR$(186) 

7530 NEXT ROW 

7540 RETURN 

75 90 ٦٣ 

7560 '******k*k*** PRINT SCREEN ASSEMBLY LANGUAGE SUBROUTINE 
پار چاو چاو پار باو باو باو باو چاو بار‎ 

7580 А (0) + НСО55 

7590 A%$(1)=&H5D05 

7600 A%(2)=&H90CB 

7610 SUBRT = VARPTR(A%(0)) 

7620 CALL SUBRT 

7640 RETURN 

7650 ' 

7660 !*#*#***kkkkk LAT/LONG POINTS DISPLAY SUBROUTINE 

بل بل بل مل بل مل بل بل بل چاو 

7662 LOCATE 1,1,0: РЕТКТ "-И-ЕрІТБЕБ/"25СКЕЕН 7/2 O T p sa 
"" DISP:SCREEN ,,0,0 

7663 IF DISP=4 THEN CHAIN "ZEROOUT", ,ALL 

7664 IF DISP=3 THEN RETURN 

7666 IF DISP=2 THEN LOCATE 1,1:GOTO 7711 

7668 IF DISP-1 THEN GOSUB 7800 

7670 GOTO 7660 

7711 PRINT "-WzFILING,NOWAIT/":LOCATE 1,21:INPUT "ENTER 
DRIVE:FILENAME —» ":;AS:0PEN AS FOR OUTPUT AS #1:WRITE 
#1,N 

7712 FOR I=1 TO N:FOR J=1 TO 8:WRITE 71,NAVDATA(1,J) ء7٤‎ 
J NEXT I 

7714 CLOSE #1:PRINT "~C=LAST/ "Y ++ 3:0 

۱ 

7715 BS=AS+".WPT" 

7716 OPEN B$ FOR OUTPUT AS Z1:WRITE #1, N: FOR I=1 TO N:FOR 
J=1 TO 3: WRITE دځ‎ WAYPTS(I,J):NEXT 1:1٨۸ ٢ 1:۱2 А: 
7718 CS=A$S+".CHA":OPEN CS FOR OUTPUT AS #1:WRITE 
#1,GEOLATS , GEOLONGS ,MVARTYPES:CLOSE #1:GOTO 7660 

7720 RETURN 

7800 '********** LAT/LONG EDITING SUBROUTINE *******kkk 


60 й 


805 
7810 
7812 
7814 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 


LOCATE 1,1,1,0,7:PRINT "EDIT POINT # "; 
LOCATE 1,3:PRINT "~W=EDITPTS/";: INPUT B 

IF (DISP=1) AND (B=0) GOTO 7670 

IF (DISP=1) AND (B<>0) THEN PTNUM=B 
LOCATE 1,1,0 
IF PTNUM>9 THEN SCREEN 0,1,1,1 ELSE SCREEN 0,1,0,0 
ROW=0 
FOR I-1 TO PTNUM 

IF PTNUM=I THEN LOCATE PTNUM+I+2,19 

ROW=PTNUM+I+2 
NEXT I 
PRINT " 


";:LOCATE ROW,31:PRINT "  ";: LOCATE 


КО 42:PRINT " "; 


7900 LOCATE ROW-1,19:PRINT "  ";:LOCATE ROW-1,31:PRINT 

" "P;:LOCATE ROW-1,42:PRINT "  ";:LOCATE ROW*1,63:PRINT 

" ne 

7910 LOCATE ROW,18:1NPUT " ",LATDEG:NAVDATA (PTNUM,2)-LATDEG 
7920 LOCATE ROW,30:INPUT " 


", LATMIN:NAVDATA(PTNUM,3)-LATMIN/60 


7930 


LOCATE ROW,41:INPUT " 


", LATSEC: NAVDATA(PTNUM,4)-LATSEC/6000 


7940 


ROSATEOROWLTI,IS:INPUT " 


", LONGDEG: NAVDATA ( PTNUM, 5) - LONGDEG 


7950 


LOCATE ROWT1,30:INPUT " 


", LONGMIN: NAVDATA (PTNUM, 6) =LONGMIN/60 
7960 LOCATE ROW+1,41: INPUT " 
" , LONGSEC: NAVDATA ( PTNUM, 7) -LONGSEC/ 6000 


7970 


LOCATE ROW+1,62:INPUT " ",MVAR: IF (MVARTYPES="E") OR 


(MVARTYPES="e") THEN NAVDATA(PTNUM,8)=MVAR*-1 ELSE 
NAVDATA (PTNUM, 8)=MVAR 


7972 WAYPTS (PTNUM, 2) =LATDEG+LATMIN/100+LATSEC/10000 

7974 WAYPTS (PTNUM, 3)=LONGDEG+LONGMIN/100+LONGSEC/10000 

7976 LOCATE 1,1,0:PRINT " " 
7980 RETURN 

7990 END 

8000 !*#*#***k*k*k* COORDINATE COMPUTATION PRINTOUT SUBROUTINE 
kkkkkkkkkk 

8010 ' 

8020 CLS 

8030 LOCATE 3,20:PRINT "TO POINT # DISTANCE (nm) 


MAG HDG (deg)" 


8040 


اص سی يی ې 


8095 


LOCATE 4,20:PRINT 


FOR I-1 TO N 
LOCATE I+4,22:PRINT COORD(I,1) 
LOCATE I+4,33:PRINT USING "#####.#";COORD(I,2) 
LOCATE I+4,51:PRINT USING "4####";COORD(I,3) 
NEXT I 


LOCATE 16,20:PRINT "NAV ROUTE DISTANCE = ";; PRINT 


USING "####.#";TOTALDIST;:PRINT " nm" 


8100 


TOP=2 : LEFT=14 :WIDTZ=55: HEIGHT=20:GOSUB 7200 
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8105 IF OUTPUT-1 THEN GOSUB 7560:LPRINT CHR$(12) 

'AUTO PRINTSCREEN 

8110 LOCATE 24,27,0:PRINT "PRESS ANY KEY TO CONTINUE" 
8120 АМЗ$=ТМКЕУ$:ТЕ АМ$$="" ТНЕМ 8120 

8130 RETURN 

8200 "dxxxxxxx** LOW LEVEL NAV AND PERFORMANCE SUBROUTINE 
kkkkkkkkkk 

8210 HCRUISE=LLALT:ALT=LLALT:HDWIND=0 
8225 CHAIN "TOPHALF",3053,ALL 
PERFORMANCE 

8230 

АІ-МАУРТ8 (1,2) :А2-НАУРТ8 (1,3) :АЗ-МАУРТ8 (2,2) :А4-МАУРТ8 (2,3) 
8235 

A5=WAYPTS (3,2) :Аб=МАУРТ$ (3,3) :А7=МАУРТ$ (4,2) :АЗ=МАУРТ$ (4,3) 
8240 

А9=ИАУРТ$ (5,2) :А10=МАУРТ$ (5,3) :А11=МАУРТ$ (6,2) :А12=МАУРТ$ (6 
,3) 

8245 
А13-МАҮРТ5(7,2):А14-МАҮРТ5(7,3):А15-МАҮРТ5(8,2):А16-МАҮРТ6( 
8,3) 

8250 А17=МАУРТ$ (9,2) :А18=МАУРТ$ (9,3) 

8255 

В1=МАУРАТА (1,8) : В2=МАУРАТА (2,8) : ВЗ=МАУРАТА (3,8) : В4=МАУРАТА ( 
4,8) 

8260 

В5=МАУРАТА (5,8) : Вб=МАУРАТА (6,8) : В7=МАУРАТА (7,8) : В8=МАУРАТА ( 
8,8) 

8265 В9-МАУРАТА (9,8) 

8270 
C1-COORD(2,3):C2-2COORD(2,2):C32COORD(3,3) :C4-COORD (3,2) 
8275 

C5=COORD (4,3) :C6=COORD(4,2) :C7=COORD(5,3) :C8=COORD(5,2) 
8280 

C9=COORD (6,3) :C10=COORD (6,2) :C11=COORD(7,3) :C12=COORD(7, 2) 
8285 

C13=COORD (8,3) :C14=COORD (8,2) :C15=COORD(9,3) :C16=COORD (9,2) 
8290 LT2=C2/LLKGS 'LEG TIME 
IN HOURS 


"CRUISE 


8295 
8300 
8305 
8310 
8315 
8320 
8325 
8325 
8340 
8345 
8350 
6355 
8355 


D1-FIX(LT2) 
D2-(LT2-D1)*(60) 
D3-D1 

D4=D2 

LT3=C4/LLKGS 

ОБЕЕТХ (173) 

)60( # )173-05( 6د 
D7=D3+D5: D8=D4+D6‏ 

IF D8>=60 THEN D8=D8-60:D7=D7+1 
LT4=C6/LLKGS 
D9-FIX(LT4) 
D10-(LT4-D9)*(60) 
D11=D7+D9 :D12=D8+D10 


62 


8370 
5175 
8380 
8385 
45 95 
8400 
8405 
8410 
8415 
8425 
8430 
8435 
8445 
8450 
8455 
8465 
8470 
8475 
8485 
8490 
8495 


ТЕ 012>-60 ТНЕМ 012-012-60: 


LT5-C8/LLKGS 
D13-FIX(LT5) 
D14-(LT5-D13)*(60) 
D15=D11+D13:D16=D12+D14 


IF D16>=60 THEN D16=D16-60: 


LT6=C10/LLKGS 

D17-FIX(LT6) 
D18-(LT6-D17)*(60) | 
D19=D15+D17:D20=D16+D18 

IF D20>=60 THEN D20=D20-60 
LT7=C12/LLKGS : D21=FI1X (LT7) 
D23=D19+D21:D24=D20+D22 

IF D24>=60 THEN D24=D24-60 
LT8=C14/LLKGS : D25=FIX(LTS8) 
D27=D23+D25 : D28=D24+D26 

IF D28>=60 THEN D28=D28-60 
LT9=C16/LLKGS : D29=FIX(LT9) 
D3 1=D27+D29 : D32=D28+D30 


IF D32>=60 THEN D32=D32-60: 


70-9 11 


0129-011 


:р19=р19+1 
:р22= (177-021) * (60) 


:D23=D23+1 
:D26=(LT8-D25) * (60) 


:D27=D27+1 
:030+ (119-029) « (60) 


D31=D31+1 


E2=LT2*WF: E4=LT3 *WF: E6=LT4*WF: E8S=LT5*WF: ELO=LT6*WF: E12=LT7* 
WF:3E14=LT8*WF 


8500 


El6-LI9*WF:F3-2E2TEATEOTESTElOTEl12TE14TE16:F2-2D32:F1-2-D31 
98505 EI-LLFUELI:E3-El1-E2:E5-E3-E4:E7-2E5-E6:E9-E7-E8:ElIlzE9- 
рио: Е13-Е11-Е12 
ЗАО Е15-Е13-Е14:Е17-Е15-Е16:Е4<Е1/7 
E SCREEN 0,1l,0,2:CLS: SCREEN 
8515 SCR.SS$-23:INIT.SS$--1:GOSUB 60000 

КЕШУ ТЕ LABEL-lI THEN LOCATE 1,1:COLOR 15:PRINT "ROUTE: 
ROUTES 
8518 IF OUTPUT-1 THEN GOSUB 7560:LPRINT СНВ$ (12) 
' AUTO PRINTSCREEN 
ENS БОСАТЕ 25,1:РКІМТ "PRESS ANY KEY ТО CONTINUE"; 

8520 ANSS=INKEYS:IF ANSS=""" THEN 8520:LOCATE 25,1:PRINT " 


и. 
f 


ООО LOCATE 1,1 


8525 LOCATE 1,1:PRINT "~W=FINALOPT/":SCREEN ,,3,0:INPUT 
и", РТМАГОРТ% : $5СВЕЕМ ۰0 


8527 


8530 ТЕ FINALOPT%=1 THEN LOAD "TOPHALF",R 
8532 IF FINALOPT%=2 THEN ERASE COORD,NAVDATA,WAYPTS: CHAIN 
"TOPHALF",103,ALL 


8534 


SS55 ТЕ 
8600 IF 


0,1,3,0:INPUT CONTROL1 


БОТО IF 
8620 ON 


ERROR GOTO 0 


10000 ON ERROR GOTO 62980 : 
Delete 


63 


FINALOPT%=3 THEN CHAIN "TOPHALF",130,ALL 
ERR=13 THEN PRINT "~W=TYPEERR/":SCREEN 


CONTROLI=1 THEN SCREEN 0,1,0,0: CONTROL1=0: RESUME 


Error Handling Routine - 


10010 ' if іс conflicts with yown 
own 

30005 ۷ Variables Section For B:XCINPUT 

30015 VL.SS$(1)=STRS$ (TEMP): VL.SS$(2)=STRS$(PA): 
VL.SS$ (3) =STRS (TOGW) : 

30020 VL.SS$(4)-STRS$(RLENGTH): VL.SS$(5)-STRS$(DC6): 
VL.SS$(6)*STR$(DC7): 

30025 VL.SS$(7)=STR$(DC8): VL.SS$(8)=STRS$(DC9): 
VL.SS$(9)-STR$ (CMACH): 

30030 VL.SS$(10)=STR$(HCRUISE): VL.SS$(11)=STR$(HDWIND) : 
VL.SS$(12)-STR$(HSD): 

30035 VL.SS$(13)=STR$(HED): VL.SS$(14)=STR$(FUELLOAD) : 
30040 RETURN 

30050 ' Assign VL.SS$ Array to the variables 

30060 
TEMP-VAL(VL.SS$(1)):PA-VAL(VL.SS$(2)):TOGW-VAL(VL.SS$(3)): 
30065 
RLENGTH-VAL(VL.SS$(4)):DC6-VAL(VL.SS$(5)):DC7-VAL(VL.SS$ (6) 


30070 
DC8-VAL(VL.SS$(7)):DC9-VAL(VL.SS$(8) ) i CHACH-VAL(VL.SS$(9)): 
30075 
HCRUISE=VAL(VL.SS$(10)):HDWIND=VAL(VL.SS$(11)):HSD=VAL(VL.S 
S$(12)): 

30080 HED=VAL(VL.SS$(13)) :FUELLOAD=VAL(VL.SS$(14)): 
30085 RETURN 

30095 Section To Initialize Variables To Initial 
Values 

30105 TEMP=0: PA=0: TOGW=31200: RLENGTH=13500: DC6=0: 
30110 DC7=0: DC8=0: DC9=0: CMACH=0!: HCRUISE=27000: 
30115 HDWIND=0: HSD=27000: HED=0: FUELLOAD=10000: 
30120 RETURN 

70 **** List DATA statements & Print DISPLAY Only 
Variables  **** 

30135 'Lin,Col,Len,Picture, Low Range,High 

Range, Foreground, Background, # of Edit 

30145 DATA 53,5,6,"N"," 24342424242" ,0,120,15,0,0 

30150 DATA 53,6,6,"N","###444" 9 8000,15,0,0 

30155 DATA 53,7,6,"N","###4#4#4" 25000,42000,15,0,0 
30160 DATA 53,8,6,"N","444444",0,99999,15,0,0 

30165 DATA 53,9,6," N"," 342XXX",0,999,15,0,0 

30170 БАТА 53,10,6,"М", "ЗіттЕТ! 0 99981500 

30175 DATA 53,11,6,"N","4442424",0,999,15,0,0 

30180 DATA 53,12,6,"N","4434444",0,999,15,0,0 

30185 DATA 53,13,6," N'" "lr mao oU gp От 

30190 DATA 53,14,6,"N","###4#4" 100,46000,15,0,0 

30195 DATA 53,15,6,"N","4424242442",-200,200,15,0,0 

30200 DATA 53,16,6,"N","2422444",100,46000,15,0,0 

30205 DATA 53,17,6,"N","4444244",0,46000,15,0,0 

30210 DATA 53,19,6,"N","4244442",0,20000,15,0,0 

30215 -RETURN 
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©0225 ' Screen Display Initialization Statements 
30235 NUMFLDS.SS%=14: FILNM.SSS="XCINPUT.SCR": 
30240 EXITCHR.SSS=CHRS$ (27) +CHRS (127) +"" 

30245 RESTORE 30130 

30250 RETURN 

10255 ' 

30260 ' Variables Section For B:LLINPUT 

E265 ' 

30270 VL.SSS$(1)sSTRS(LLALT): VL.SS$(2)sSTR$(LLKGS): 
VL.SS$(3)-2STR$ (LLFUEL1): 

30275 RETURN 

30280 ' 

30285 ' Assign VL.SS$ Array to the variables 
5090290 ! 

9295 
LLALT=VAL(VL.SS$(1) ) : LLKGS=VAL(VL.SS$(2) ) : LLFUEL1=VAL(VL.SS 
$(3)): 

30300 RETURN 

E9505 ' 

500310 ' Section To Initialize Variables To Initial 
Values 

5 бє л ' 

30320 LLALT-200: LLKGS-2360: LLFUEL1-20: 

30325 RETURN 

20330 ° 

D0335 ' ٭٭٭٭‎ List DATA statements & Print DISPLAY Only 
Variables **** 

30340 'Lin,Col,Len,Picture,Low Range,High 

Range, Foreground, Background,# of Edit 

29345 ' 

30350 DATA 48,8,5,"N","##4#24" 100,25000,15,0,0 
30355 DATA 48,11,5,"N","####4" 0, 700,15,0,0 

30360 DATA 48,14,5,"N","22424343",0,16000,15,0,0 

20365 RETURN 

50370 ' 

00375 ! Screen Display Initialization Statements 
30380 ' 

30385 NUMFLDS.SS%=3: FILNM.SSS="LLINPUT.SCR": 


30390 
20395 
30400 
30405 
30410 
30415 
30420 
30425 
30430 
30435 
30440 
30445 


EXITCHR.SS$=CHR$ (27)+CHR$(127)+"" 
RESTORE 30335 

RETURN 

! 


! Variables Section For B:LLJETLOG 


RETURN 


Assign VL.SS$ Array to the variables 


RETURN 


215; 


30450 ' Section To Initialize Variables To Initial 
Values 

30455 ! 

30460 RETURN 

30465 ' 

3042708 **** List DATA statements & Print DISPLAY Only 
Variables  **** 

30475 'Lin,Col,Len,Picture,Low Range,High 

Range, Foreground, Background,# of Edit 

30480 ! 

30485 COLOR 15,0: LOCATE 4,13: PRINT 

LEFTS (GEOLAT$+LEFTS (BLNK.SS$,1-LEN(GEOLATS)),1); 

30490 COLOR 15,0: LOCATE 4,17: PRINT 

LEFTS (GEOLONGS$+LEFTS (BLNK.SS$,1-LEN(GEOLONGS)) ,1); 

30495 COLOR 15,0: LOCATE 4,32: PRINT 

LEFTS (MVARTYPES+LEFTS (BLNK.SS$,1-LEN(MVARTYPES)),1); 
30500 COLOR 14,1: LOCATE 6,12: PRINT USING "###2.#4##2"> Al; 
30505 COLOR 14,1: LOCATE 7,12: PRINT USING "#4244373 PE 
30510 COLOR 14,1: LOCATE 8,12: PRINT USING "####.#427'" ар” 
30515 COLOR 14,1: LOCATE 9,12: PRINT USING "44443.43444"; A4; 
30520 COLOR 14,1: LOCATE 10,12: PRINT USING "#### ыны; 
ДЕ 

30525 COLOR 14,1: LOCATE 11,12: 270777 03586 Иан 2000 
Аб; 

30530 COLOR 14,1: LOCATE 12,12: PRINT USING "####4.####"; 
TE 

30535 COLOR 14,1: LOCATE 13,12: PRINT USING THU 
А8; 

30540 COLOR 14,1: LOCATE 14,12: PRINT USING "####.####4"> 
AQ; 

30545 COLOR 14,1: LOCATE 15,12: PRINT USING "#### .####"; 
Alo; 

30550 COLOR 14,1: LOCATE 16,12: PRINT USING "####.####": 
2117 

30555 COLOR 14,1: LOCATE 17,12: PRINT USING "####.####"; 
AJ 

30560 COLOR 14,1: LOCATE 18,12: PRINT USING "####.####"; 
7ھ‎ 

30565 COLOR 14,1: LOCATE 19,12: PRINT USING "####.####"; 
Al4; 

30570 COLOR 14,1: LOCATE 20,12: PRINT USING “####.####"; 
AlS; 

30575 COLOR 14,1: LOCATE 21,12: PRINT USING لل لل‎ DRE 
А16; 

30580 COLOR 14,1: LOCATE 22,12: PRINT USING "j$34343.34334"'; 
А17; 

30585 COLOR 14,1: LOCATE 23,12: PRINT USING "####.####"; 
Al8; 

30590 COLOR 14,1: LOCATE 6,27: PRINT USING "######"; Bl; 
30595 COLOR 14,1: LOCATE 8,27: PRINT USING "######"; B2; 
30600 COLOR 14,1: LOCATE 10,27: PRINT USING "######"; B3; 
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30605 
30610 
30615 
30620 
30625 
30630 
30635 
30640 
30645 
30650 
30655 
30660 
30665 
30670 
30675 
30680 
С10; 

30685 
EU, 
30690 
C 2; 

50695 
аз; 

30700 
C14; 

30705 
ЛЕБ ; 

30710 
С16; 

30715 
30720 
30725 
30730 
30735 
30740 
30745 
30750 
30755 
30760 
20765 
30770 
30775 
30780 
30785 
30790 
20795 
30800 
30805 
30810 
30815 
30820 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
соток 
соток 
COLOR 


14,1: 


Ja 1: 


14,1: 


14,1: 


14,1: 


14,1: 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


02.270 
:14,27 
دص 
:27 15 
:20,27 
:22,27 
:8,36 

3736: 

jl 0 36: 
ge: 
1236: 
S 367 
14,360: 
15,36: 
J 6. 36: 
7,30. 


18,36: 
19,36: 
20,36: 
2 17866 
22,36: 
23,36: 


8,47: 

30+000 71 

9,47: 

9:53. 

10,47: 
16753: 
17ط‎ 27: 
1 3 ٦ 
12,47: 
12 5: 
12 171 
LIS: 
14,47: 
14,53; 
Ге), алы 
T3793: 
16,47: 
16 1 
17,47: 
pou 
18,47: 
19553 
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РЕ 
PRINT 
PRINI 
0 
PRINT 
PRINT 


PRINT 
PRINT 
PRINI 
PRINT 
PRINT 
PRENI 
PRINT 
PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINTI 


PRINT 


USING 
USING 
USING 
USING 
USING 


USING 
PRINT USING " 
PRINT USING " 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


USING 


USING 


USING 


USING 


USING 


USING 


РК пътна 
PRINI USING 
PRINT USING 
PRINT USING 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ЕРКШ 
РЕ 
PRINT 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


B4; 
БЕ; 
Bor 
B7; 
58; 
В9; 
CI 
C2; 
ез; 
C4; 
C5; 
CG; 
ey 
CB; 
сә; 


1"; 
# f 


8 не 
“HERRERO? 
Няяя HH e W£ 


"SHR EEE R  G 
ПЕНИН R"? 
"ПИЛЯННЯ"; 
Ия 
ر ٥او وو وج۱‎ 
Шаа а жағын 


HERRE", 
##"; 02; 
PETS 
Я"; Ра; 
"ДАЛЯ? 
"##"; 06; 
а: 
Ше emin 08; 
"ӘН"; Бо; 
ташы DIO? 
прай"; 011; 
Нани; 012; 
"Pittt o ; 013; 
"i$"; D14; 
"#####"; D15; 
"$1"; D16; 
права"; 017; 
د‎ D18; 
"ЧАННЯ"; 019; 
"$$"; 020; 
"етті"; 021; 
۰۷۳, 


І 
/ 
/ 
ms 
? 
i 
І 
1 


Dl; 
D3; 
D5; 


D7; 


30825 
30830 
308353 
30840 
30845 
30850 
30855 
30860 
30865 
30870 
308795 
30880 
30885 
30890 
30895 
Е5; 
30900 
30905 
ЕЛ; 
309 10 
30915 
E9? 
30920 
Е10; 
30929 
ETE; 
30930 
EL; 
30935 
Bas; 
30940 
E14; 
30945 
ЕЛЕР 
30950 
Е16; 
30955 
لا‎ 
30960 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


COLOR 
COLOR 


COLOR 
COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


COLOR 


TOTALDIST; 


30965 
30970 
30975 
30980 
F4; 

30985 
30990 
30995 
31000 
31005 
31010 


COLOR 
COLOR 
COLOR 
COLOR 


RETURN 


14,1: 


14,1: 


14,1: 


14, 19 


14,1: 
14,1: 
Да I3 
14,1: 
151 
LS, lS 
25 05 


Шо: 
15 1 


ТОСАТЕ 
ТОСАТЕ 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


19,47: 
197 93: 
20,47: 
20,93: 
21,47: 
21755. 
22,474 
22.095 
23,471 
237 аа 
6.63: 

8558: 

863. 

10,58: 
105 695 


12,58: 
12,69: 


14,58: 
14 69: 


16,58: 
16,69: 
18,58: 
18 69; 
20,58: 
20,69: 
22,58: 
22799: 
24,36: 
24,47: 
24,53: 


28,٤ 
24,69: 


РВІМТ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


NARRER"? 
"$$"; D24; 
"ӘНІ"; 
"ғ"; 026; 
"фа; 
наш"; 028: 
"Әт"; 
Мини; 030; 
"stETTO 
Иан, Па 


PRINT USING 1 1 117٤ 


PRINT USING ЕНЕВ"; 


PRINT USING ПЕЕ"; 


PRINT 
PRINT 


27 ۷ 
PRINT 


PRENT 
PRINT 


PRINT 
PRINT 
PRENE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
РЕНИ 


PRINT 
PRINT 


USING 
USING 


USING 
USING 


USING 
USING 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


USING 
USING 


ния;‏ ای 
"Rt RHR TRF‏ 


"ТТИПТИ 
шала ааа ды 


"ПИЛЯННЯ; 
МИНИ. ر‎ 


ини. 
Минин; 
Прапятяна"; 
е А 
"UBTRSTTUTTO 
VERE RH THF 
VERT RT RTS 


VERT аа а а 


Мания $; 


"ҮЛҮЛ"; 
"i1; F2; 
VET HHT RT HG 
ПЯТИ 


ЕЕ, 


I Screen Display Initialization Statements 


NUMFLDS.SS%=0: 


EXITCHR. SS$=CHRS$ (27) +CHRS (127) +"" 
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FILNM.SS$="LLJETLOG. SCR": 


D23; 
025; 
نن 2 لا‎ 
D2937 


7ب 


El; 


E2; 


ЕЗ; 
E4; 


Еб; 


Е8; 


ром 


21015 
31020 
60000 
60085 


RESTORE 30470 
RETURN 


IF SAME.SS% THEN 60200 "То return to the SAME screen 


with SAME values 


60090 IF SCR.SS$-SCRLST.SS$ THEN 60140 ' If same screen as 
last, don't reload 

60100 ' Get screen setup 
parameters 

60105 ON SCR.SS$ GOSUB 3022353 203 80995 

60110 GOSUB 60550 ' Read field data 
for this screen 

60120 OUT &H3D8, &Hl ' Turn off screen 
display 

60125 ' CALL QUBLOAD(FILNM.SSS) t<- For QuickBASIC, 


See READ.ME file 


60130 DEF SEG=SCRNSEG.SS% BLOAD FILNM.SS$,0 :DEF SEG ' 
Load screen picture 

60135 ' бек initial values 

60140 IF INIT.SS% THEN ON SCR.SS% GOSUB 30095, 30310, 
30450 

60145 ' Assign current values to screen 
array 

60155 ON SCR.SS% GOSUB 30005, 30260, 30410 

60160 OUT &H3D8, &H29 ' Turn on screen 
display 

60170 GOSUB 60590 ' Pad fields with 


blanks and display 


' Display initial 


60175 DISPLAY variables 
60180 ON SCR.SS% GOSUB 30130730335; 30470 

60185 OUT یی‎ 59 ' Turn on screen 
display 

60190 ' 

60195 F.SS%=1 SCRLST.SS%=SCR.SS% 

60200 COLOR 7,0:LOCATE 25,1:PRINT BLNK.SSS; ЕГЕ” пес from 
prior screen 

60205 IF NUMFLDS.SS$-0 THEN RETURN 1 3 ПО 


melds on screen 


60210 


TOCATE ,.,0,13 'Make cursor 


size large 


60215 


EXSCR.SS£- 'Initialize 


Flag For Screen Exit 


60220 WHILE NOT EXSCR.SS% 


'Loop on each field(until 


Exit Flag is set) 


60250 


GOSUB 60740 'Accept input 


data for this field 


60260 
60320 
60360 
50370 


WEND 
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60390 COLOR 7,0:LOCATE 25,1:PRINT BLNK.SSS;:LOCATE 
25,15:PRINT "... Please WAIT A Moment While Checking Fields 


"n e 
? 


60400 FOR F.SS%=1 TO NUMFLDS.SS% ' Test Each Field 
Before Leaving Screen 

60410 GOSUB 62500 ' Check contents of 
this field 

60420 IF ERR.MSG%=-1 THEN EXSCR.SS%=0 : GOTO 60220 


'Error Detected 
60430 NEXT F.SS% 


60440 F.SS%=FLDLST.SS$% 'Reset Field 
indicator 

60450 7 

60455 'Assign new 


field values 

60460 ON SCR.SSZ GOSUB 30050, 30285, 30430 

60470 RETURN '"Exit this 
subroutine 

60480 ' 

60490 

| عا < باو باو او * عا با باح جاب‎ k < < < سل عا اج جار عا بل مل مل بل مل مل عا عا او عا او ما مل باو باو عاو عا عا ما < پا او عا — < مل عا < عا < عا عا < عا‎ Ж 
хх dee مل — مل مل بل بل مل ما مل‎ 

60500 ! 

60510 ۷۳ 

60520 | سل عا جار ار‎ ХХХХХХХХХ ХХХ ХХХ ХХХ سل‎ x مل‎ x x 

60530 ' **** Read Field Data For This Screen **** 

60540 PK HHH HK KKK KKK KKH KKK KKK KKK KKK KKKKKKKKKKKEKK 

60550 FOR F.SS%=1 TO NUMFLDS.SS% 

60555 READ 

LO.SS%(F.SS%,2) ,LO.SS%(F.SS%,1) ,LE.SS%(F.SS%) , TY.SS$(F.SS3) 
,PIC.SS$(F.SS%) ,RG.SS(F.SS%,1) ,RG.SS(F.SS%,2) ,CL.SS%(F.SS%, 
1) ,CL.SS%(F.SS%,2) , SPECCHR. SS%(F.SS%) 

60560 NEXT F.SS% 

60565 RETURN 

60570 7! 

60575 

V X de Xe dee اګ با‎ eoe oe oe oe de de ode oe او سا‎ dede eoe ode ode eode ode ode ode oe ode eee عا اګ ما‎ eoe ode ode oe ode cde oe oe ode ooo سل مل جار‎ x بل سل‎ x 
* با اح ڀا‎ * * e مل < عا مل‎ x x 


60580 '*** pad Fields With Blanks, Insert Special 
Characters, and Display Flds 


60585 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
باج‎ o e * k x Ax x ج‎ 


60590 FOR F.SS%=1 TO NUMFLDS.SS% 


60595 ТЕ TY.SSS(F.SS%) ="N" THEN 60655 ' This section 
for non-numeric types 
60600 IF LEN(VL.SS$(F.SS3%) ) >LE.SS%(F.SS%) THEN 


VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS%) , LE.SS%3(F.SS%)): GOTO 
60610 
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60605 
VL.SS$(F.SS%)=VL.SS$(F.SS%) +MID$ (BLNK.SS$,1,LE.SS%(F.SS%) - 
LEN (VL.SS$(F.SS3%) )) 


60610 IF INSTR("CD",TY.SS$(F.SS%))=0 OR 
SPECCHR.SS%(F.SS%)=0 THEN 60690 

60615 | CNT.SS2-0 

60620 FOR 5551 TO ТЕ.553 (Е.553) ! 
Insert Special chars 

60625 ШЕ 


INSTR("ULX489",MIDS(PIC.SSS$(F.SS2),J7.982,1))-20 THEN 
MIDS (VL.SS$(F.SS%) ,0.SS%,1) =MID$ (PIC.SS$(F.SS%) ,J.SS%,1) 
CNT. SS%=CNT.SS$+1 


60630 IF CNT.SS$-SPECCHR.SS$(F.SS$) THEN 
60690 

60635 ШЕШІ 22552 

60640 СОТО 60690 ' End of "non-numeric 
type" section 

60645 ' 

60650 ' ' The following section is 
for numeric types 

60655 NUMDEC%=LE.SS%(F.SS%) -INSTR(PIC.SS$(F.SS%) ,".") 
' Calc # of dec places 

60657 IF LEFTS(VL.SS$(F.SS%) ,1)=""" THEN 


VL.SS$(F.SS%)=RIGHTS (VL.SS$(F.SS%) , LEN(VL.SS$(F.SS%))-1) ' 
Strip leading blank 

60660 IF NUMDEC%=LE.SS%(F.SS%) THEN NUMDEC%=0: 
NUMINTS=LE.SS%(F.SS%) ELSE NUMINT3=LE.SS% (F.SS%) -NUMDEC$-1 
' Calc # of interger places 

60665 IF VAL(VL.SS$(F.SS%) )=0 THEN 
VL.SS$(F.SS%) =LEFTS (MID$ (BLNK.SS$,1,NUMINT%- 
1)+"0."+STRINGS (NUMDEC3,"0") , LE.SS%(F.SS%)): GOTO 60690 

EN Tono initial value 

60670 DEC.VL£-INSTR(VL.SSS$(F.SS$),".") : IF 
DEC.VL$-20 THEN DEC.VL$-LE.SS$(F.SS$)-1 

٠٠٠٠1165 of decimal point in data 

60675 

VL.SS$(F.SS%) =LEFTS$ (RIGHTS (MID$ (BLNK.SS$,1,NUMINT3) +LEFTS (V 
L.SS$(F.SS%) , DEC. VL$- 

1) ,NUMINTS) +". "+MIDS (VL.SS$(F.SS%) , DEC. VL$+1)+STRINGS$ (NUMDE 
eo") , LE.SS%(F.SS3) ) 

60680 ! 

60685 ! 

60690 GOSUB 62310 ' Display Contents Of This 
Field 

60695 NEXT F.SS% 

60700 RETURN 

59705 ' 

50710 ' 

60715 ' 

* e مل‎ e dee dece de e e de eee e ehe ee dece eec cec К К 
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60720 *** Accept Input Data For The Current 
Field ***x 

607 

* k k k e e e e e k k k k k k k de che dee кк k k پا‎ жк кк بل بل‎ 

60 * 

60740 IF TY.SSS(F.SS%)<>"N" THEN A.SS%=1 : GOTO 60790 


60750 NEWNUM%=-1:NUMED.SS%=0 'Set Flags for num 
fid 

60760 DECPOS%=INSTR(PIC.SS$(F.SS%),".") : IF DECPOS%=0 
THEN DECPOS%=LE.SS%(F.SS%4) +1 

60770 А.55%-БЕСРО5%-1 

60780 ! ' Look for nom 


edit characters 
60790 WHILE INSTR("ULX#98",MIDS$(PIC.SSS$(F.SS%) ,A.SS%,1))=0: 
A.SS%=A.SS%+1: WEND 


60800 CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1 ' Find curse 
position on screen 

60810 LOCATE І0О0.55%(Е.55%,/1), СЦЕСО ТІ ! Starting 
position in this field 

60820 

60830 FLDLST.SS% = F.SS% ' Reset field 
1163066-7 

60840 EXFLD.SS%=0 ' Initializei filag 
to exit this field 

60850 WHILE NOT EXFLD.SS% ' Loop while still 
editing this field 

60860 X.SSS=INKEYS : ТЕ Х.555-"" THEN 60860 ' Wait for 


next keyboard character 

60870 IF ERR.MSG$ THEN ERR.MSG$z20 : COLOR 7,0:LOCATE 
25,1,0:PRINT STRINGS(79," "); 

' Erase old message line. 

60880 IF LEN(X.SSS)>1 OR 
INSTR(CHR$(8)+CHR$(13)+CHR$(27),X.SS$)<>0 THEN 
X.SSS=RIGHTS(X.SSS,1) ELSE 60960 ! 
Extented code key pressed? 

60885 ON INSTR(";<=>?@ABCD",X.SSS) GOSUB 
61100,61100,61100,61100,61100,61100,61100,61100,61100,61100 
' This is a DUMMY statement. It traps the Function Keys 


(Fl - F10). It is here to make user modifications simpler. 
60887 ' For the above line to be active, you 
need to set all Function Key values to null. i.e.- KEY 
1,"" ; KEY 2,"" etc. 

60890 IF TY.SSS(F.SS*)«* +90 TE 
numeric, need special test 

60900 ТЕ INSTR (CON Х.555) <>0 THEN 61630 ' Codes 
not valid for numeric 

60910 IF INSTR("RKM'«CHR$(8),X.SS$)«»0 THEN 

КОМЕО. 563+-1: NEWNUM%=0 

60920 ТЕ ТН5ТЕ (ЕХТТСНЕ. 555 ,Х.555) <>20 THEN EXEBDUSSS 


1:EXSCR.SS%=-1:GOTO 61040 'Check CODE to EXIT SCREEN 
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60930 ON INSTR("MKHPGRSO"+CHR$ (8) +CHR$(13) ,X.SS$) 
GOSUB 

61110, 61140, 61210, 61260, 61650,61440, 61300, 61600,61140,61260 
: СОТО 61020 


60940 GOTO 61030 ' Invalid extended code 
key pressed 

60950 ' 

60960 ШЕТУ (Е. 59%) ="М" AND Х,555е!'," ТНЕМ 


NEWNUM%=0: NUMED.SS%=-1: GOTO 61010 

60970 IF ASC(X.SS$)<32 OR ASC(X.SS$)>126 THEN 61030  ' 
Invalid characters 

60980 GOSUB 61750 :IF ERR.MSG$ THEN 61030 ' Non-spec char 
entered: Test entry 

60990 GOSUB 62230 "дай char to 
this field 

61000 GOSUB 62310 ' Print new 
field 

61010 GOSUB 62380 ' Move cursor 
to next position 

62020 IF ERR.MSG% THEN 60740 ' If error re- 
eet this field 

61030 WEND 

61040 LASTCHR.SSS=xX.SSS$ ' Set last 
character indicator 

61050 RETURN ص٢1 کلک‎ 
editing this field 

61060 ! 

61070 

بل بل بل مل مل بل مال بل بل مل بل مل ما سل مل با با ما ما ما eoe eee‏ ما سا ما ما ال eoe de‏ سل با ما eoe‏ مل ما ما سا سل ما ما مل مل ما ما ما Je de de eee‏ با با V‏ 
КЖК‏ پل de eek‏ ہا k‏ پل 


61080 '**** THE FOLLOWING SUBROUTINES HANDLE EXTENDED 
KEYBOARD COMMANDS 7 

61090 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkk 

61095 ' *** DUMMY Subroutine for Function Keys (Fl - F10) 
61096 ' *** This is here for user modifications kkk 
6۰۰۰۲۷۳٢ RETURN 

61105 '*** Cursor right *** 


61110 GOSUB 62380 ' Move cursor to next 
position 

61120 RETURN 

61130 '*** Cursor left or backspace *** 

61140 IF CURCOL$-LO.SS$(F.SS$,2) THEN 61210 ' Goto 
Prior field 

61150 IF TY.SS$(F.SS%)="N" AND INSTR(" +- 

TDS (VE 5559 (Е.55%) ,А.55%,1))<>0 ТНЕМ КЕТСЕМ 

51160 CURCOL%=CURCOL%-1:A.SS%=A.SS3-1 

peas ВЕ char in field | | 

61170 IF INSTR("jULX#89",MIDS(PIC.SSS(F.SS%S),A.SS%,1))=0 


THEN 61140 'Spec char? 
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61150 LOCATE 10.553 (Е. 555, СБ! 


61190 RETURN 

61200 '*** Cursor up ххх Move to next field left 

61210 GOSUB 62500 ' Edit check freid 
data before leaving 

61220 IF ERR.MSG$ THEN RETURN ' Error found 
62225 EXFLD.SS%=-1 ' Set Flag тор We 
this Field 

612390 IF F.SS$»1 THEN F.SS$-F.SS$-] ELSE 
F.SSZ-NUMFLDS.SS$ ' Goto 
prior fd | 

61240 RETURN 


61250 '*** Cursor down or carriage return - Advance to next 
field *** 


61260 GOSUB 62500 ' Edit check field 

data before leaving 

61270 IF ERR.MSG% THEN RETURN ' Don't leave field 
1Е error was found 

61275 EXFLD.SS%=-1 ' Set Flag to Eit 

this Field 

61277 IF F.SS%=NUMFLDS.SS% AND 


INSTR(EXITCHR.SS$,CHR$(127))«»0 THEN EXSCR.SS$--1  'Test to 
leave screen after last field 


61280 IF F.SS$«NUMFLDS.SS$ THEN F.SS$-F.SS$-1 ELSE 
Е.55%- ' Increment fld num to 
next fld 

61290 RETURN 

61300 ! **** Del key pressed ****** 

61310 ! ١ Start Del routine for Numeric fld on 


left of decimal pt 
61320 IF TY.SSS(F.SS%)="N" AND A.SS%<DECPOS% THEN 


MID$(VL.SS$(F.SS%) ,1)="" "4+LEFTS (VL.SS$(F.SS%) ,A.SS%- 
1) +RIGHTS (VL.SS$(F.SS%) , LE.SS% (F.SS%) -A.SS%): GOTO 61420 
61330 ' ' Start Del routine for Numeric fld on 


right of decimal pt 

61340 ТЕ ТУ.555 (Е.5533)- THEN 
MIDS$(VL.SS$(F.SS$),1)-LEFT$(VL.SSS$(F.SS$),A.SS£- 
1)-MIDS$(VL.SS$(F.SS$),A.SS$-1,LE.SS$(F.SS2)-A.SS£)-4"0" 
GOTO 61420 

613507! ' Start Del routine for fld w/o non- 
edit chr 

61360 IF SPECCHR.SS%(F.SS%)=0 THEN 

MIDS (VL.SS$(F.SS%) ,1)=LEFTS (VL.SS$(F.SS%) ,A.SS%- 

1)+MID$ (VL.SS$(F.SS%) ,A.SS%$+1,LE.SS%(F.SS%) -A.SS%)+" " 
GOTO 61420 

6 И 

61380 CNT.SS%=0 ' Start del routine for 
fld with non-edit chr 

61390 WHILE | 

INSTR ("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%+1+CNT.SS%,1)) <>0 


74 


ШІ СМИТ, 65%2<ГЕ.56%(Ғ.55%)-А.55% : CNT.SS%=CNT.SS%+1 : МЕМО 
"count until next non-edit chr 

5200". 555 (Е.555) -ПЕРТО (У1.555(Е.555) ,А.55Х#- 

1) +MIDS$(VL.SS$(F.SS%) ,A.SS$+1,CNT.SS%) +" 

"+RIGHTS (VL.SS$(F.SS%) , LE.SS% (F.SS%) -A. SS%-CNT.SS%) 
New value for field 

61410 ! 

61420 CURCOL%=CURCOL%<-1:A.SS4=A.SS%-1:GOSUB 62340:GOSUB 
62380 'Print fld; Set cursor 

61430 RETURN 

61440 ' ***** Ins key pressed *** 

61450 ! horace Ins routine for numeric field on 
leftside of dec pt 

61460 IF TY.SSS(F.SS%)="N" AND A.SS%<DECPOS% THEN 

MIDS (VL.SS$(F.SS%) ,1)=MIDS(VL.SS$(F.SS%) ,2,A.SS%- 

1) +"0"+RIGHTS (VL.SS$(F.SS%) , LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 

61470 ! ! Start Ins routine for numeric field on 
rightside of dec pt 

61480 IF TY.SSŞ(F.SS%)="N" THEN 
VL.SS$(F.SS%)=LEFT$(VL.SS$(F.SS%),A.SS%- 
1)+"0"+MID$(VL.SS$(F.SS%),A.SS%,LE.SS%(F.SS%)-A.SS%) : GOTO 
61580 

61490 ' ' Start Ins routine for non-numeric w/o 
non-edit characters 

61500 IF SPECCHR.SS%(F.SS%)=0 THEN 
VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS%) ,A.SS%-1) +" 

"4+MIDS (VL.SSS(F.SS%) ,A.SS%,LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 


61510 ' ! Start Ims routine for non-numeric with 
non-edit characters i m 
61520 NEWVLS=LEFTS (VL.SSS$(F.SS%) ,A.SS%$-1)+" " : 


NEXTCHRS=MIDS(VL.SSS$(F.SS%) ,A.SS%,1) 

61530 FOR I%=A.SS%+1 TO LE.SS%(F.SS%) 

61540 xX.SSS$=MID$(PIC.SS$(F.SS%) ,1%,1): ТЕ 

INSTR ("ULX#89",X.SSS)=0 THEN NEWVLS=NEWVLS+X.SSS$ : GOTO 
61570 

61550 NEWVLS=NEWVLS+NEXTCHRS : 

NEXTCHRS=MIDS$ (VL.SSS$(F.SS%) ,1%,1) 

61560 NEXT 1% 

61570 . 
VL.SS$(F.SS%)=NEWVL$+MID$(VL.SS$(F.SS%),I%+l,LE.SS%(F.SS%)) 
61580 CURCOL%=CURCOL%-1:A.SS#=A.SS%-1:GOSUB 62310:GOSUB 
62380 ' Print fld; Set cursor 

61590 RETURN 

61600 ! ***** END key pressed ۳# 

61610 CURCOL$-LO.SS$(F.SS$,2)TLE.SS$(F.S85$)-1 : 
A.SSt=LE.SS%(F.SS%) 

61620 WHILE INSTR("ULX#89"",MIDS(PIC.SSS(F.SS%) ,A.SS%,1) )=0 
:A.SSS=A.SS%-1: CURCOL%=CURCOL%-1: WEND ! Look for 
special protected characters 
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61630 LOCATE LO.SS%(F.SS%, 1I) CURE ' Starting 
position in this field 

61640 RETURN 

61650 **** HOME key pressed **** put cursor at beginning 
of field 


61660 A.SS%= 'Find cursor position for 
this field 

61670 WHILE INSTR("ULX#89",MIDS(PIC.SS$(F.SS%) ,A.SS%,1))=0 
: А.55%=А.55%+1 : WEND ' Look for special protected 
characters 


61680 CURCOL%=LO.SS%(F.SS%,2)+A.SS$-1 

61690 LOCATE LO.SS%(F.SS%,1),CURCOL%,1 ' Starting position 
in this field 

61700 RETURN 

61710 ' 

61715 ' 

پو یلو لو لو لو لو لو یلو یلو یلو یلو یلو یلو لو یلو یلو یلو چاو باج لو چاو باو چاو یلو چاو چاو یاو چاو چاو باو چاو یلو باو چاو بل باو با بل چاو بل لو لو باو لو لو Ххх‏ 


61720 ' **** ROUTINE TO EDIT-TEST CHARACTER Elie 
بل بل بل پار‎ 


6 709 

К К К К‏ یلو یلو یلو یلو * * * * * یلو یلو یلو * * یلو * * لو * یلو یلو لو لو یلو * k k * * k k * * k * k * * k k k k‏ * بلي 
'***Check for special character type conversion***‏ 61740 
ON INSTR("NDMY",TY.SSS$(F.SS%)) GOTO‏ 61750 
0 ,60400 62100 ,6177190 

61760 ON INSTR("ULX#89",MIDS (PIC.SS$(F.SS%) ,A.SS%,1)) GOTO 
61890, 61920, 62130, 61800, 62060, 62100 

61770 PRINT "EDIT PICTURE TTS 

";MID$ (PIC.SS$(F.SS%),A.SS%,1);" NOT FOUND" : STOP 

61735) ٦ 

61790 '*** Numeric values; "."; "-"; "чат"; м м 

61800 ' NOTE: The decimal point is trapped in the"Accept 
input data" routine 

61810 IF X.SS$»52"O" AND X.SS$«z"9" THEN RETURN 


61820 IF X.SS$<>"+" AND ××. 55 5> ھ۲٢۱0"‎ ЕГЕП 
61850 ' Is this a + or - sign? 
61830 IF TY.SSS(F.SS%)="C" THEN RETURN ' -,-," " allowed 
anywhere in C type 
61840 IF LEFT$(VL.SSS$(F.SS$),A.SS$-1)-SPACES(A.SS$-1) OR 
A.SS$-1 THEN RETURN 
61841 ۳ "" "¿n and "=<" sign only allowed in 

. beginning of number 
61850 MSG.SSS=" Only numeric values can be entered here. 
Please re-enter. " 
61860 GOSUB 62180 : RETURN ' Print error message; 
ERIE 
61870 ' 


61880 '*** Upper case or any other character*** 
61890 IF ASC(X.SS$)>96 AND ASC(X.SS$)<123 THEN 
X.SSS=CHRS (ASC (X.SSS) —32) 

61900 СОТО 62130 

61910 '*** Lower case or any other character*** 
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E1920 


X.SS$- 


S1930 
61940 
61950 
61960 
61970 


IF ASC(X.SS$)>65 AND ASC(X.SS$)<91 THEN 

CHR$ (ASC(X.88$) 432) 

GOTO 62130 

!*** Y/N answer only*** 

ТЕ ©. 55-1" ТНЕМ Х.555=ПУ 2 СОТО 62130 

IF X.SSS="N" OR X.SSS="n" THEN X.SSS="N" : GOTO 62130 
MSG.SSS="" Only 'Y' or 'N' can be entered here. 


Please re-enter. " 


61980 
51990 
62000 
62010 
62020 


СОТО 62180 ' Print error message 
'kkk M/F answer only*** 
IF X.SSS="M" OR X.SSS="m" THEN Х.555="М" : 
IF X.SSS="F" OR X.SSS="£" THEN Х.555-"Е" : 
MSG.SSS=" Only 'M' ог 'Е! 


GOTO 62130 
GOTO 62130 
can be entered here. 


Please re-enter. " 


62030 
62040 
62050 
62060 
62070 


СОТО 62180 ' Print error message 


' *** Numeric values only **** 
IF (ASC(X.SS$)>47 AND ASC(X.SS$)<58) THEN GOTO 62130 
MSG.SSS=" Only numeric values can be entered here. 


Please re-enter. " 


62080 
52090 
62100 


GOTO 62180 ' Print error message 
١ *** Numeric values and " " only ***x 
IF (ASC(X.SS$)»247 AND ASC(X.SS$)«58) OR X.SS$-" " 


ШШЕН СОТО 62130 


62110 


entered Пеге. 


62120 
62130 
62140 
521.50 
521.60 
62170 
52180 


MSG.SSS="" Only numeric values or blanks can be 
Please re-enter. " 
GOTO 62180 ' Print error message 
RETURN 
1 


| kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
' **** Print Error Messages ****** 
1 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


ERR.MSG$--1 :48S0UND 500,50.555#1:ТОСАТЕ 25 ТКТ (81- 


LEN(MSG.SS$))/2,0 :COLOR O,7:PRINT MSG.SS$;: LOCATE 
LO.SS$(F.SS$,1),CURCOL$,1 


62190 
after 
62200 
62210 
62220 
62230 
62240 
62250 


WHILE INKEYS«2"" : МЕНІ ' Clear input buffer 
error 
RETURN 
۱ 
| kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
' **** Add character to current field *****x 
| kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
IF TY.SSS(F.SS%)="N" AND NEWNUM% THEN 


MIDS (VL.SS$(F.SS%) ,1)=MID$(BLNK.SS$,1,A.SS%- 


1)+X.SSS+". "4+STRINGS (LE.SS3(F.SS3%) ,"O") : 
RETURN ! 


NEWNUMZ=0 : 
Restart fld - New num 


62260 IF TY.SS$(F.SS%)<>"N" OR NUMED.SS%=-1 THEN 


MIDS (VL.SS$(F.SS%) ,A.SS%,1)=X.SS$ : RETURN 
62270 IF LEFT$(VL.SS$(F.SS$),1)-" " THEN 


MID$(VL.SS$(F.SS%) ,1,A.SS%) =MID$ (VL.SS$(F.SS%) ,2,A.SS%- 


7 7 


1)+X.SS$ ELSE NUMED.SS%=-1 : GOTO 62260 Ааа 
character to left of decimal place 

62280 RETURN 

62290 ' 

62300 ارا‎ dede dede dede de de باو عا بل با‎ e dece dee de ke de بل‎ dee یا با‎ n К 

62310 '*** print new value of field ***x 

62320 '* d de desee de k ee dede ede ede ek e e e e ee e e یاو‎ e x kx К 

625 08: 

62340 COLOR CL.SS%(F:SS%,1) 4+7 ' Set 
color for this fred 

62350 LOCATE LO.SS%(F.SS%,1) ,LO.SS%(F.SS%,2),0 : PRINT 
VL.SSS(F.SS%) 7 Prine nen 

62360 RETURN 

62 36 ٦ 

62370 '*žxkxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62380 '**** Move cursor to new location ****x 

62390 !'*ž*šžxkžxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62400 IF TY.SSŞ(F.SS%)<>"N" OR NUMED.SS%<>0 THEN 62420 
62410 IF LEFTS(VL.SS$(F.SS%),1)<>" " THEN NUMED.SS%=-1 
ELSE A.SS%=DECPOS%-1: CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1: LOCATE 
LO.SS%(F.SS%, 1) ,CURCOL., 1 ك٦‎ 

62415 

62420 ТЕ 5558ھ‎ > 58.5955 ) ۰ ٣٦ 

A.SS4=A.SS%+1: CURCOL%=CURCOL%+1 ELSE GOSUB 61260 : RETURN 
' Advance cursor or go to next field 


62430 IF INSTR("ULX#89",MIDS$(PIC.SS$(F.SS%) ,A.SS%,1) )=0 
THEN 62420 

62440 LOCATE LO.SS%(F.SS%,1) , CURCOL3,1 

62450 RETURN 

62460 ' 

62470 ' 9d de dede de de de e ck ck de de e e ee e e ke de de kk КККК КК К К 

62480 ' *** Edit check final field result 7۷ 

62490 ! kžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62500 IF TY.SSŞ(F.S8%)<>"N" THEN 62540 ' Check numeric 
input range 

62510 IF VAL(VL.SS$(F.SS%))>RG.SS(F.SS%,2) THEN 


MSG.SSS="" The maximum value allowed in this field is 
"+STRS (RG.SS(F.SS%,2)): GOSUB 62180 : RETURN 'Print Err 
Msg 

62520 IF VAL(VL.SS$(F.SS%))<RG.SS(F.SS%,1) THEN 
MSG.SS$=" The minimum value allowed in this field is 
"+STR$(RG.SS(F.SS%,1)): GOSUB 62180 : RETURN 'Print Err 
Msq 

62530 ' 

62540 IF TY.SSS(F.SS2) <2 bp THEN GD ' Date edit 
check 

62550 IF VL.SS$(F.SS2)-" /  / " THEN 62720 

' No check 

62560 

DT .SS=VAL(RIGHTS (VL.SS$(F.SS%) ,2) +LEFTS (VL.SS$(F.SS%) , 2) *MI 
D$(VL.SS$(F.SS%) ,4,2)) 
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92570 


NÉE 


INSTR("01,02,03,04,05,06,07,08,09,10,11,12", LEFTS(VL.SSS(F. 
55%),2))<>0 THEN 62590 


62580 


re-enter.":GOSUB 62180 : 


62590 


MSG.SSS="Invalid MONTH in date entered. Please 
RETURN 
IF INSTR(MIDS$(VL.SS$(F.SS$),4,2)," ")-20 AND 


VAL(MID$(VL.SS$(F.SS%) ,4,2))>0 AND 
VAL (MID$(VL.SS$(F.SS%) ,4,2))<32 THEN 62620 


62600 


MSG.SSS=""Invalid DAY in date entered. Please 


re-enter.":GOSUB 62180:RETURN 


62610 
62620 
62720 
62630 


! 

IF RG.SS(F.SS%,1)=0 AND RG.SS(F.SS%,2)=0 THEN 
' No check 

IF RG.SS(F.SS%,2)<RG.SS(F.SS%,1) THEN 62680 


'Does date cross century? 


62640 


IF DT.SS>=RG.SS(F.SS%,1) AND 


DT.SS<=RG.SS(F.SS%,2) THEN 62720 


62650 


ВЕЕТ (ЕС. 55 (Е.553,1)) 


D2.SSS=STRS (RG.SS(F.SS%,2)) 


62660 


MSG.SSS="The date should be between 


fees (D1.SS5,4,2)+"/"+RIGHTS (D1.SS$,2)+"/"+MIDS$ (D1.S8$,2,2 
ШЕ" апа 
"4+MIDS (D2.SS$,4,2)+"/"+RIGHTS (D2.SS$,2)+"/"+MID$ (D2.SS$,2,2 


) :GOSUB 62180 : RETURN 

62670 ! 

62680 IF DT.SS>=RG.SS(F.SS%,2) OR DT.SS<=RG.SS(F.SS%,1) 
THEN 62720 

62690 D1.SSS=STR$ (RG.SS(F.SS%,2)) : 


D2.SSS$=STRS (RG.SS(F.SS%,1)) 


62700 


MSG.SSS="The date should be between 


|1 Пот. 5554, 2) +"/"+ЕТСНТО (01.555,2)+"/"+МТт08 (1.5885,2,2 
ШЕ!" апа 
062555 ,4,2)-"/"-ВІСНТ5 (02.555,2)3"/"-МІО5 (02.855,2,2 


) :GOSUB 62180 


89 10 
52720 
62860 
62870 
62880 
62890 
E2900 
52010 


RETURN 


! 

RETURN 

1 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 
' ** Test If Monochrome or Color/Graphics Monitor *x 
| kkšžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
DEF SEG=&H40 

MONO.SS=(PEEK(&H10) AND &H30)=&H30 

IF MONO.SS THEN SCRNSEG.SS%=&HB000 ELSE 


SCRNSEG.SS$-&HB800 


62920 
62930 
62940 
62950 
62960 


display 


62970 


RETURN 
١ kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


' хх Error Handling Routine  ** 

1! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

' This routine is used mostly to turn the screen 
back on if 

' a serious problem (such as the screen image file 


Not found) occurs. 
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62980 CLS:OUT &H3D8, &H29 ' Turn screen display BACK 
Ос СЕВ). 

62990 ° 'The following checks for disk 
file errors 

63000 IF NOT (ERR=53 OR ERR=57 OR ERR=66 OR (ERR>70 AND 
ERR<77)) THEN 63030 

63010 LOCATE 10,1:PRINT"There is a problem finding a 
file on the disk. Error code="+STRS (ERR) 

63020 LOCATE 11,1:PRINTU(HINT:Check disk for .SCR 
file)":PRINT | 

63030 ON ERROR GOTO 0 ' Reset BASIC ERROR handling 
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0! МАХВАМСЕ - 7/27/1986 - 11:25:35 

2 COPYRIGHT.SSS="(C)Copyright 84,85 The Software Bottling 
Company Of New York" 

5 ! 

10 DIM VL.SS$(25), LO.SS%(25,2), LE.SS%(25), TY.SS$(25), 
PIC.SS$(25) ,RG.SS(25,2), CL.SS%(25,2), SPECCHR.SS%(25) 
20 KEY OFF: SD.SS%=1 :. NUMSCR.SS%=2 : BLNK.SSS=SPACES (78) 
30 GOSUB 62890 'Test For Mono OR Color Display 

100 '****kkkk** OPTIMUM PERFORMANCE PROGRAM kkkkkkkkkk 
110 CLS:A=0:B=0:C=0:PRINT "~L=MAX/" 

ІІІ LOCATE 1,1,0:PRINT "~W=MAXINTRO/":SCREEN ,,3,0: INPUT 
EE HARD.: SCREEN ROO 

120 SCR.SS$-1:INIT.SS$--1:GOSUB 60000 Ер 
screen display 

130 DC=DC6:SELECTALT2=SELECTALT 

135 SOXDC=DC 

140 IF DC<=100 THEN GOSUB 500 ELSE GOSUB 600 

150 MACHNUM=BRMN:GOSUB 400 

160 IF (ABS(SOXDC-DC))»5 THEN SOXDC-DC:GOTO 140 

170 DCOPTALT-SOXDC:MRMACH1-BRMN 

180 6 

185 SOXDC=DC: ALT=SELECTALT 

190 GOSUB 800:MACHNUM=BRMN:GOSUB 400 

200 IF (ABS(SOXDC-DC) )>5 THEN SOXDC=DC:GOTO 190 

210 DCANYALT=SOXDC : MRMACH2=BRMN 

220 DC=DCOPTALT:GOSUB 700:0PTALTl1-ALT 

230 DC=DCOPTALT:GOSUB 900:0PTSRI-BRSR 

240 DC-DCANYALT:ALT-SELECTALT:GOSUB 900:0PTSR2-BRSR 

250 DC-DCOPTALT:GOSUB 1000:0PTENDALT1-BEALT:ALT-BEALT:GOSUB 
1100: OPTENDMACHI-BEMN:GOSUB 1200:0PTENDFF-BEFF 

300 'COMPUTE TEMPERATURE AT OPTALT1 AND SELECTALT 

310 DELTAT=(TEMP+459.69) -518.69 

320 IF OPTALT1<=36089! THEN T1=518.69- 
(.0035662*OPTALT1)+DELTAT ELSE T1=389.99+DELTAT 

330 IF SELECTALT<=36089! THEN T2=518.69- 
(.0035662*OPTALT)+DELTAT ELSE T2=389.99+DELTAT 

340 Al=(49.01*SQR(T1) )*.5921:A2=(49.01*SQR(T2))*.5921 
'speed of sound kts 

350 IF TAILWIND>0O THEN HEADWIND-TAILWIND*(-1) 

355 TAS1=MRMACH1*A1: TAS2=MRMACH2 *A2 “no 
паша condition 

360 BRSRNOHW=OPTSR1: TAS=TAS1:GOSUB 1300:0PTSR1=BRSRHW 
370 BRSRNOHW=OPTSR2 : TAS=TAS2:GOSUB 1300:0PTSR2=BRSRHW 
380 BRMNNOHW=MRMACH1:GOSUB 1400:MRMACH1=BRMNHW 

390 BRMNNOHW=MRMACH2:GOSUB 1400:MRMACH2=BRMNHW 

392 TAS1=MRMACH1*A1: TAS2=MRMACH2*A2 

‘corrected for headwind 

393 GS1=TAS1-HEADWIND: GS2=TAS2-HEADWIND 

394 HOURS1=INT(DIST/GS1) :MINUTES1=(DIST/GS1- 

HOURS 1) *60: FUELI=DIST*OPTSR1 
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395 HOURS2-INT(DIST/GS2):MINUTES2-(DIST/GS2- 

HOURS2) *60: FUEL2-DIST*OPTSR2 

396 LOCATE 1,1:SCR.SS%=2: INIT.SS%=0:GOSUB 60000:GOSUB 
2000:LOCATE 1,1:PRINT "~P=OPTRNG/" 

397 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 

398 ANSS=INKEYS:IF ANSS="" THEN 398 

399 GOTO 1440. 

400 '****kkkkkkkk SOX DRAG EQUATION * k < x x < < < < < 

410 DC=DC6* (1+ (60* ( (MACHNUM-. 6) ^3) ) ) 

420 RETURN 

500 '***** BEST RANGE MACH NUMBER AT CRUISE CEILING FOR DC 
<= 100 ***** 

510 BRMN-.85816-(.000503*DC)-(1.6933E-06*DC^2) 

520 RETURN 

600 '***** BEST RANGE MACH NUMBER AT CRUISE CEILING FOR DC 
> TOQ. ***** 

610 BRMN-1.0595-(2.93067E-03*DC) *(6.44E-06*DC^2) -(6.0333E- 
09*DC^3) 

620 RETURN 

700 '***** OPTIMUM CRUISE ALTITUDE OR CRUISE CEILING ****x 
710 ALT=EXP(11.0605-(5.53315E-08*GW*DC) -(1.25963E- 
05*GW)+(4.57508E-14*GW*DC%3) ) 

720 RETURN 

800 '***** BEST RANGE MACH NUMBER AT ANY ALTITUDE ***** 
810 BRMN-2.454334-(7.13908E-04*DC)-(8.92715E-07*DC^2)- 
(6.21055E-15*ALT^3)-4(6.15457E-10*ALT^2)-(8.426901E- 
Об*АГТ) + (5.74695Е-11*С\^2)+(3.6246Е-10*АГТ*СМ) -(1.2802Е- 
08*DC*ALT)-(3.76629E-13*ALT^2*DC)-(6.61474E-15*ALT^2*GW) 
820 RETURN 

900 '***** BEST RANGE SPECIFIC RANGE (lb/nm) ****x 

910 BRSR=EXP(-2.15494+(3.89145E-05*ALT) -(2.33982E-03*DC) - 
(1.56937E-10*GW^2)-(3.55219E-15*ALT^3)-(4.36678E- 
LO*ALT*GW) +(1.74403E-06*DC‘’2) -(1.85822E-08*ALT*DC) ) 

915 BRSR=1/BRSR 

920 RETURN 

1000 '***** OPTIMUM ENDURANCE ALTITUDE ***** 

1010 BEALT-48690.9-(.591744*DC^2)-(3.25866E- 
12*DC*GW^3)-(2.32902E-05*DC^2*GW) -(.534385*GW) - (4.762322£- 
31*GW^7*DC)-(7.98225E-11*DC^4*GW)-*(2.35685E-06*DC^4) 

1020 RETURN 

1100 '***** MAXIMUM ENDURANCE MACH NUMBER *****x 

1110 BEMN-.175855-(5.71392E-06*GW)-(3.08863E- 
04*DC)-(2.82951E-15*ALT^3)-(3.57714E-10*ALT*GW)-(3.62212E- 
07*DC^2)-(4.22656E-15*GW^2*ALT) 

1120 RETURN 

1200 '***** MAXIMUM ENDURANCE FUEL FLOW ***** 

1210 BEFF-1950.85-(8.38134E-07*GW^2)- 

(.0586557*ALT) +(1.6863E-04*GW*DC) +(7.97748E- 
07*ALT^2)-(1.60371E-11*GW^2*ALT)-*(5.14017E-05*ALT*DC)- 
(1.82085*DC) 

1220 RETURN 
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1300 '***** BEST RANGE SPECIFIC RANGE WITH A HEADWIND OR 
TAILWIND ***** 

1310 BRSRHW-BRSRNOHW* ( (TAS-HEADWIND)/TAS) 

Ша20 RETURN 

1400 '***** BEST RANGE MACH NUMBER WITH A HEADWIND OR 
TAILWIND ***** 

1410 BRMNHW=BRMNNOHW+ (.000475*HEADWIND) 

1420 RETURN 

LEU CLS: LOCATE l,l:SYSTEM 

1590: ЕКО 

2000 !*#*w***kkk*k PRINT SCREEN ASSEMBLY LANGUAGE SUBROUTINE 
* k x k k k k k k 

2010 Aš(0)=&HCD55 

2020 Aš(1)=&H5D05 

2030 A%(2)=&H90CB 

2040 SUBRT = VARPTR(A%(0)) 

2060 IF HARD=2 THEN RETURN ELSE CALL SUBRT 

2070 1۳111 1 CHR$(12) 

2080 RETURN 

10000 ON ERROR GOTO 62980 ' Error Handling Routine - 
Delete 

10010 ire cenl icts with your 
own 

30000 ! 

#8005 ' Variables Section For B:MAXRNG1 

20010 ' 

30015 VL.SS$(1)=STRS(GW): VL.SS$(2)=STR$(DC6) : 
VL.SS$(3)-2STR$ (SELECTALT) : 

30020 VL.SS$(4)=STRS$ (DIST): VL.SS$(5)=STR$ (HEADWIND) : 
30025 VL.SS$(6)=STRS$(TAILWIND): VL.SS$(7)=STRS$ (TEMP) : 
30030 RETURN 

سه 316 

30040 ! Assign VL.SS$ Array to the variables 

20045 " 

30050 
GW=VAL(VL.SS$(1) ) :DC6=VAL(VL.SS$(2) ) : SELECTALT=VAL(VL.SS$ (3 
)): 

50055 
DIST=VAL(VL.SS$(4)):HEADWIND=VAL(VL.SS$(5)):TAILWIND=VAL(VL 
.SS$(6)): 

30060 TEMP-VAL(VL.SS$(7)): 

30065 RETURN 

30070 ' 

50075 ° Section To Initialize Variables To Initial 
Values 

30080 ' 

30085 GW=0: DC6=0: SELECTALT=0: DIST=0: HEADWIND=0: 
TAILWIND=0: TEMP=0: 

30090 RETURN 

30095 ' ۱ 
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320177 **** List DATA statements & Print DISPLAY Only 
Variables  ****x* 
30105 'Lin,Col,Len,Picture,Low Range,High 


Range, Foreground, Background,# of Edit 

301 70 

30115 DATA 58,9,5,"N","34344",0,42000,15,1,0 

30120 818 60,11 , 3, "٤٢۹٢ پ ْ لال"‎ ٣ е 

30125 DATA 58,14,5,"М", "ЫЫ ",0,45000,15,1,0 

30130 ГАТА 59,16,4,"М", ҢІ" ,0,9999,15,1,0 

30135 DATA 60,18,3,"N","###",0,300,15,1,0 

30140 DATA 60,20,3,"N" "r1 ٤٥ 

30145 DATA 60,22,3,"N","444",—-20,140,15,1,0 

30150 RETURN 

30155 7 

30160 ' Screen Display Initialization Statements 
30165 ' 

30170 NUMFLDS.SS%=7: FILNM.SSS="MAXRNG1.SCR": 

30175 EXITCHR.SS$-CHR$(27)-4CHR$(127)-4'" 

30150 RESTORE 30100 

30185 RETURN 

30190 ' 

30195 ! Variables Section For 2 

30200 

30205 RETURN 

30210 ! 

30215 1 Assign VL.SS$ Array to the variables 

30220 ' 

3022 9 RETURN 

30230! 

30235 ٦ Section To Initialize Variables To Initial 
Values 

30240 ' 

30245 RETURN 

30250! 

30255 **** List DATA statements & Print DISPLAY Only 
Variables  **** 

30260 'Lin,Col,Len,Picture,Low Range,High 

Range, Foreground, Background,# of Edit 

30265 ٦ 

30270 COLOR 15,1: LOCATE 6,32: PRINT USING "131"; СИ; 
30275 COLOR 15,1: LOCATE 7,32: PRINT USING "#####"; DC6; 
30280 COLOR 15,1: LOCATE 8,32: PRINT USING "#####"; 

5 1:۲۸٣۶ 

30285 COLOR 15,1: LOCATE 9,32: PRINT USING "#####"; 0 
30290 COLOR 15,1: LOCATE 6,70: PRINT USING "####"; TEMP; 
30295 COLOR 15,1: LOCATE 7,70: PRINT USING "####"; 
HEADWIND; 

30300 COLOR 15,1: LOCATE 13,32: PRINT 0ا‎ 6 +7800۵ه٥‎ 
ОРТАТТІ; 

30305 COLOR 15,1: LOCATE 14,32: PRINT USING "##.##"; 
МЕМАСНІ; 
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50510 


COLOR 


OETSR1; 


20315 
30920 
30825 
30330 
310995 
30340 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


OPTENDALT1 ; 


30345 


OPTENDMACH1 ; 


30350 


COLOR 


COLOR 


ОРТЕКОЕЕ; 


310355 


COLOR 


SELECTALT2; 


20360 


СОРОК 


МЕМАСН2; 


9965 


COLOR 


CETSR2 ; 


30370 
30375 
30380 
5 3086 
30390 
5 د 
30400 
30405 
30410 
30415 
30420 
30425 
30430 
30435 
30440 
30445 
30450 
30455 
30460 
30465 
60000 
60010 


COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


RETURN 
۱ 


NUMFLDS .SS%=0: 


= 
Ul 
= 


15,1 


نے 
(л (л‏ 
„кҥҥ‏ 


кҥҥ 
(л (л 


ГА 


19, 
oars 
Па d: 
Sy Ii 
15,1: 
15%]: 
tS, I: 
1298 p: 
ШБ: 


13 бы 
15:1: 


Screen 


LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 


158,32: 


1605321 
16.32: 
112-1 
18,10: 
15,19: 
21,32: 


22732: 
23, 32: 
13,69: 
14,69: 
5 69: 
16,69: 
е” aa 
17,69: 


18,47: 
18,56: 
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PRINT 
PRINT 
PRINT 
PRINTI 
PRINT 
PRINT 


PRENT 
PRINT 
BRINE 
PRINT 
PRINT 
PRINT 
PRINT 
РЕТ 


PRINT 
PRINT 


USING 


USING 
USING 
USING 
USING 
USING 
USING 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 


USING 
USING 


"тата"; 


шише ە‎ 
КҮН" 7+ 
певт FUEL1; 
"ЯН"; ТА51; 
rr, CSL; 
ПЕТЕ: 


Nat RG 

"ERE RG 
"НЯНЯ? 

ПЕР ЯТУ 
"талан; 

"ii"; HOURS2; 
"$i"; MINUTES2; 
“Sette 7 FUEL2; 


паля"; ТА52; 
"ати"; 682; 


Display Initialization Statements 


EXITCHR.SSS=CHR$ (27)+CHR$(127)+"" 
RESTORE 30255 


RETURN 
RETURN 


EXITCHR.SS$=CHR$ (27) +CHR$(127)+"" 
RESTORE 30270 


RETURN 
RETURN 


RESTORE 30280 


RETURN 
۱ 


FILNM.SS$2"MAXRNG2.SCR': 


51-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-11-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-11-1-1-1-1-1-1-1-) 


Е 
60020 


К ет 


ROUTINE H 


60030 


ОШ АЕ OP SCREEN SCULPIOR FULL SCREEN EDITING 


8٥66666666666666 6666666666666666666666666666666666666 6 


+ 

60050 
60060 
60070 


60080 
60085 


IF SAME.SS% THEN 60200 "То return to the ЗАМЕ screen 


with SAME values 


60090 IF SCR.SS%=SCRLST.SS% THEN 60140 ' If same screen as 
last, don't reload 

60100 ' Get screen setup 
parameters 

60105 ON SCR.SS% GOSUB 30160, 30405 

60110 GOSUB 60550 ' Read field data 
for this screen 

60120 OUT &H3D8, 171 ' Turn off screen 
display 

60125 ' CALL QUBLOAD(FILNM.SSS) '<= For QuickBASIC, 
See READ.ME file 

60130 DEF SEG=SCRNSEG.SS% BLOAD FILNM.SS$,0 :DEF SEG ' 
Load screen picture 

60135 ' Set initial values 

60140 IF INIT.SS% THEN ON SCR.SS% GOSUB 30075, 30225 
60145 ' Assign current values to screen 
array 

60159 ON SCR.SS% GOSUB 30005, ٣ 

60160 OUT &H3D8, &H29 ' Turn on screen 
display 

60170 GOSUB 60590 ' Pad fields with 


blanks and display 


60175 ' Display initial DISPLAY variables 
60180 ON SCR.SS% GOSUB 30100, 30255 

60185 OUT &H3D8, &H29 ' Turn on screen 
display 

60190 ! 

60195 F.SS$-1 : SCRLST.SS$-SCR.SS£ 

60200 COLOR 7,0:LOCATE 25 ,/1 ۰1 7 'Clr msg fren 
prior screen 

60205 IF NUMFLDS.SS%=0 THEN RETURN ‘Exit if © 


212180260 5 


60210 LOCATE 


0,12 'Make cursor 


size large 


60215 ЕХ5СЕ.55%-0 


' 511-1817 


Flag For Screen Exit 


60220 WHILE NOT EXSCR.SS% 


'Loop on each field(until 


Exit Flag is set) 


60250 


GOSUB 60740 'Accept input 


data for this field 


60260 
60265 


field. 


' Тре above subroutine accepts data for a single 
The program will return to 


this spot after the cursor exits any 
field on the input screen. 


60270 
60275 


' If you want to do any special input field 


testing, this is 
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60280 Ша расе to do it. 


60285 Í 

60290 ' The following variables are passed back for 
your use: 

60295 ' F.SS% is next field to be edited 

60300 ' FLDLST.SS% is last field edited 

60305 ' LASTCHR.SS$ is last keyboard character entered 
60310 ' VL.SS$(n) contains the current value of field 
П: 

60315 : 

60320 WEND 

60360 ! 

60370 ' 


60390 COLOR 7,0:LOCATE 25,1:PRINT ВЪМК. 555; : LOCATE 
25,15:PRINT "... Please WAIT A Moment While Checking Fields 


"ne 
, 


60400 FOR F.SS%=1 TO NUMFLDS.SSZ ' Test Each Field 
Before Leaving Screen | 

60410 GOSUB 62500 ' Check contents of 
this field 

60420 IF ERR.MSG%=-1 THEN EXSCR.SS%=0 : GOTO 60220 


'Rrror Detected 
60430 NEXT F.SSZ 


60440 F.SS%=FLDLST.SS% 'Reset Field 
indicator 

60450 ! 

60455 'Assign new 


field values 

60460 ON SCR.SS% GOSUB 30040, 30215 

60470 RETURN 'Exit this 
subroutine 

60480 ' 

60490 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkkk 


60500 ! 
6 2107 
60520 ххх ххх ХХ ХХХ ХХХ ХХХ ХХХ ХХХ یلو‎ 
60530 ! **** Read Field Data For This Screen **** 
60540 | kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


60550 FOR F.SS%=1 TO NUMFLDS.SS$ 

60555 READ 

1:8: :500E:5532 2) І0.55%(Ғ.55%,1),ГЕ.558%(Ғ.55%),ТҮ.55%(ЕҒ.55%) 
КОРС (Е. 553) RC€C.SS(F.SS%$,1),RG.SS(F.SS%$,2) ,CL.SSS(F.SSS, 
1) ,CL.SSš(F.SS%$,2) ,SPECCHR.SSSš(F.SSS) 

60560 МЕХТ Е.55% 

60565 RETURN 

60570 ' 


60575 
Ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkkk 
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60580 '*** Pad Fields With Blanks, Insert Special 
Characters, and Display Flds 

60585 

| پا پا پل‎ ke de ke de پا‎ e de kde kde k k با بل پل‎ e پا پا پا پا پل پا پا پا‎ e de پا پا با با با پا پا پا پا پا بل بل پا پا پا پا‎ dece ee ke e ke ee kk 
хх e xo x x x x x کو‎ 


60590 FOR F.SSt=1 TO 1101170105. 


60585 IF TY.SS$(E.SS%5) 2٢٣ں‎ ٦ ' This section 
for non-numeric types 
60600 IF LEN(VL.SS$(F.SS%) ) >LE.SS%(F.SS%) THEN 


VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS%) , LE.SS%(F.SS%)): GOTO 
60610 

60605 

VL.SS$(F.SS%) =VL.SS$(F.SS%)+MID$ (BLNK.SS$,1, LE.SS%(F.SS%) - 
LEN (VL.SS$(F.SS%) )) 


60610 IF INSTR("CD",TY.SS$(F.SS%) )=0 OR 
SPECCHR.SS%(F.SS%)=0 THEN 60690 

60615 CNT .SS%=0 

60620 FOR J.SSG=1 ТО ри. 555 Е 55) ! 
Insert Special chars 

60625 ТЕ 


ІМЅТВ ("ОІХ#89",МІр$(РІС.55$(Е.55%),7.55%,1))=0 THEN 
MIDS$(VL.SS$(F.SS2),J.S952$,1)-MIDS$(PIC.SS$(F.SS$),J.SS£,1) 
CNT.SS%=CNT.SS%+1 


60630 IF CNT.SS%=SPECCHR.SS%(F.SS%) THEN 
60690 

60635 NEXT J.SS% 

60640 GOTO 60690 ' End of "non-numeric 
type" section 

60645 ! 

60650 ! ' The following section is 
for numeric types 

60655 NUMDEC%$=LE.SS%(F.SS%) -INSTR(PIC.SS$(F.SS%) ,".") 
' Calc # of dec places 

60657 IF LEFTS(VL.SS$(F.SS%),1)="" " THEN 


VL.SS$(F.SS%)=RIGHTS (VL.SS$(F.SS%) , LEN(VL.SS$(F.SS%))-1) ' 
Strip leading blank 

60660 IF NUMDEC%S=LE.SS%(F.SS%) THEN NUMDEC%=0: 
NUMINTS=LE.SS%(F.SS%) ELSE NUMINT3=LE.SS%(F.SS%) -NUMDEC%-1 
' Calc # of interger places 

60665 IF VAL(VL.SS$(F.SS%))=0 THEN 
VL.SS$(F.SS%) =LEFTS (MID$ (BLNK.SS$,1,NUMINTS$- 
1)+"0."+STRINGS (NUMDEC$,"0") , LE.SS%(F.SS%)): GOTO 60690 

' If no initial value 

60670 10180: صا‎ 11511) 1.555٩ 55 И) ئ‎ ٢٢ 
DEC.VL%=0 THEN DEC. VL%=LE.SS%(F.SS%)+1 

' Position of decimal point in data 

60675 

VL.SS$(F.SS%) =LEFTS (RIGHTS (MID$ (BLNK. SS$,1,NUMINT%) +LEFTS (V 
L.SS$(F.SS%) , DEC. VL%- 

1) ,NUMINT%S)+"."4MIDS$ (VL.SSS$(F.SS%) , DEC. VL3+1) +STRINGS (NUMDE 
c%,"0") , LE.SS%(F.SS3%) ) 
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60680 ' 

`60685 ' 

60690 GOSUB 62310 ' Display Contents Of This 
Field 

60695 NEXT F.SS% 

60700 RETURN 

60705 ' 

60 !' 

60715 ! 

* k k * با‎ deck ode che * e با‎ e e k e k k k k k k k k k k k k k k * k k k e e ke k * e *k e ملد بل‎ * A 

60720 ! *** Accept Input Data For The Current 
Field ***x 

бш 25 ' 

* k k * e Je e de k k de de k k * k k k e Je e de k e Je de * k k * de de de de de de de de de e de de de he de * A 

60730 ' 

60740 IF TY.SSS(F.SS%)<>"N" THEN A.SS%=1 : GOTO 60790 


60750 NEWNUM%=<-1: NUMED. SS%=0 'Set Flags for num 
fld 

60760 DECPOSS-INSTR(PIC.SSS(F.SS$),".") : IF DECPOS%=0 
THEN DECPOS%=LE.SS%(F.SS%)+1 

60770 A.SSZ-DECPOSZ-1 

60780 ! ' Look for non- 


edit characters 
60790 WHILE INSTR("ULX#98",MIDS$ (PIC.SS$(F.SS%) ,A.SS%,1) )=0: 
A.SS%=A.SS%+1: WEND 


60800 CURCOLS=LO.SS%(F.SS%,2)+A.SS$-1 ' Find cursor 
position on screen 

60810 LOCATE LO.SS%(F.SS%,1) , CURCOL%,1 ' Starting 
position in this field 

60820 ! 

60830 ۳110161. 5 5 = Ғ.55% ' Reset field 
indicator 

60840 EXFLD.SS%=0 "۲61611861 flag 
to exit this field 

60850 WHILE NOT EXFLD.SS% ' Loop while still 
editing this field 

60860 X.SSS=INKEYS : IF X.SSS=""" THEN 60860 ' Wait for 


next keyboard character 

60870 IF ERR.MSG% THEN ERR.MSG%=0 : COLOR 7,0:LOCATE 
25,1,0:PRINT STRINGS(79," "); 

' Erase old message line. 

60880 IF LEN(X.SS$)>1 OR 

INSTR (CHR$ (8) +CHRS$ (13) +CHRS$ (27) ,X.SS$)<>0O THEN 
X.SSS=RIGHTS (X.SS$,1) ELSE 60960 
Extented code key pressed? 

60885 ON INSTR('";<=>?@ABCD",X.SS$) GOSUB 

рио тел тоО 6100 61100,61100,61100,61100,61100,61100 ,61100 
' This is a DUMMY statement. It traps the Function Keys 
(Fl - F10). It is here to make user modifications simpler. 
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60887 ' For the above line to be active, you 


need to set all Function Key values to null. i.e.- KEY 
ТІЛЕУ Ка,‘ ее 

60890 ТЕ ТУ. 55 (Е .۰۹5 *( > <٦ 20 ТГ 
numeric, need special test 

60900 IF INSTR("GO",X.SS$) <>0 THEN 61030 'Codes 
not valid for numeric 

60910 IF INSTR ("RKM"+CHRS (8) ,X.SS$) <>O0 THEN 
МЈМЕр.55$=-1 : МЕИМЈМ&= 

60920 IF INSTR(EXITCHR.SSS,X.SSS)<>0 THEN EXFLD.SS*x=- 
1:EXSCR.SS%=-1:GOTO 61040 'Check CODE to EXIT SCREEN 
60930 ON INSTR ("MKHPGRSO"+CHRS (8) +CHRS (13) ,X.SSS$) 
GOSUB 


61110,61140,61210,61260,61650,61440,61300,61600, 6 1 120 1 0 
GOTO 61020 

60940 GOTO 61030 ' Invalid extended code 

key pressed 

60950 ! 

60960 IF TY.SS$(F.SS%)="N" AND X.SS$-"." THEN 

NEWNUM%=0 : NUMED.SS%=-1: GOTO 61010 

60970 IF ASC(X.SS$)<32 OR ASC(X.SS$)>126 THEN 61030  ' 

Invalid characters 

60980 GOSUB 61750 :IF ERR.MSG% THEN 61030 ' Non-spec char 

entered: Test entry 

60990 GOSUB 62230 ' Add char Еб 

this field | 

61000 GOSUB 62310 | ' Print new 

field 

61010 GOSUB 62380 ' Move cursor 

to next position 

61020 IF ERR.MSGZ THEN 60740 ' If error re- 

edit this field 

61030 WEND 

61040 LASTCHR.SSS=X.SSS$ ' Set last 

Character indicator 

61050 RETURN ' Exit from 

editing this field 

61060 ' 

61070 

| بل بل‎ Je پل با بل بل‎ e de e de e de e e de de de e de de e de e de de de de e de e e de بل‎ e de e de de e de e de e de e بل بل بل بل بل بل بل بل بل بل با بل‎ 

* بل بل بل بل بل بل * بل مل ما‎ * x 


61080 '**** THE FOLLOWING SUBROUTINES HANDLE EXTENDED 
KEYBOARD COMMANDS 7 

61090 

| Je Je e de e e e de de de de e de e e e e ode e de de de de de de de e de e e de eoe ce ode بل بل بل بل بل پل بل بل مل‎ oe بل بل بل بل بل بل‎ Ax بل‎ 
بل بل بل بل بل بل بل بل بل * بل * بب‎ 

61095 ! *** DUMMY Subroutine for Function Keys (Fl - F10) 
61096 ' *** This is here for user modifications RK > 
61100 RETURN 

61105 '*** Cursor right ххх 


2+0 


GITIO GOSUB 62380 ' Move cursor to next 


position 

61120 RETURN 

61130 '*** Cursor left or backspace *** 

61140 IF CURCOL%=LO.SS%(F.SS%,2) THEN 61210 'Goto 
prior field 

61150 IF TY.SS$(F.SS%)="N" AND INSTR(" +- 

ТИБ (2.555 (Е.555),А.55%,1))<>0 THEN RETURN 

61160 CURCOLS-CURCOL$-1:A.SS$-A.SS$-1 

'Pos of char in field 

61170 IF INSTR("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%,1))=0 
THEN 61140 ‘Spec char? 

61180 БӘСАШЕР ЕС, 555 (Е.55%,1) СИЕКСОГ%,1 

61190 RETURN 

61200 '*** Cursor up *** Move to next field left 
61210 GOSUB 62500 ' Edit check field 
data before leaving 

61220 IF ERR.MSG% THEN RETURN T Error found 
61225 EXFLD.SS%=-1 ШЕСЕС Flag to Exit 
this Field 

6020 IF F.SS$»1 THEN F.SS$-F.SS$-1 ELSE 
F.SSS-NUMFLDS.SS$ ' Goto 
pror fld 

61240 RETURN 


290 '*** Cursor down or carriage return - Advance to next 
field *** 


61260 GOSUB 62500 !' Edit check field 
data before leaving 

61270 IF ERR.MSG% THEN RETURN ' Don't leave field 
if error was found 

61275 EXFLD.SS$--1 1 87 Flag to Exit 
this Field 

61277 IF F.SS$-NUMFLDS.SS$ AND 


BUNSTR(EXITCHR.SSS$,CHR$(127))«»0 THEN EXSCR.SS%=-1 'Test to 
leave screen after last field 


61280 IF F.SS%<NUMFLDS.SS% THEN F.SS%=F.SS%+1 ELSE 
F.SS%=1 ' Increment fld num to 
next fld 

61290 RETURN 

61300 ! **** Del key pressed ****** 

٨۹1 ۱٥ ا‎ ! Start Del routine for Numeric fld on 


left of decimal pt 
61320 IF TY.SSS(F.SS%)="N" AND A.SS$«DECPOS$ THEN 


MIDS (VL.SSS$(F.SS%),1)=" "+LEFTS (VL.SS$(F.SS%) ,A.SS$- 
1) +RIGHTS (VL.SS$(F.SS%) , LE.SS%(F.SS%) -A.SS%): GOTO 61420 
61330 ' И БСА Бе! routine, Бог Numeric fld on 


right of decimal pt 

5۶۰ 400۳۲7 TY.SSS(F.SS%4)="N". THEN 

MIDS (VL.SS$(F.SS%) ,1)=LEFTS$(VL.SS$(F.SS%) ,A.SS%- 

1) +MID$(VL.SS$(F.SS%) ,A.SS%+1,LE.SS%(F.SS%) -A.SS%)+"0" : 
GOTO 61420 


JT 1 


61950 ' Start Del routine for fld w/o non- 
edit chez 


61360 IF SPECCHR.SS%(F.SS%)=0 THEN 
MIDS (VL.SS$(F.SS%) ,1)=LEFTS (VL.SS$(F.SS%) ,A.SS$- 


1)+MID$(VL.SS$(F.SS%) ,A.SS%+1, LE.SS%(F.SS%)-A.SS%)+" " : 
GOTO 61420 
61370 ! 


61380 CNT.SS%=0 ' Start del routine for 
fld with non-edit chr . 

61390 WHILE 

INSTR ("ULX#89",MID$ (PIC.SSS$(F.SS%) ,A.SS%+1+CNT.SS%,1))<>0 
АМП СМТ.55%<ГЕ.55%(Ғ.55%)-А.55% : СМТ.55%-СМТ.55%-Ғ1 : WEND 
١ Count until next non-edit chr 

61400 VL.SSS$(F.SS$)-LEFTS(VL.SS$(F.SS2),A.SS$- 

1)+MIDS (VL.SSS(F.SS$%) ,A.SS%+1, CNT. SS%) +" 

"+RIGHTS (VL.SS$(F.SS%) , LE.SS%(F.SS%) -A. SS%-CNT.SS%) | 
New value for field 

611) ٢ 

61420 CURCOL$-2CURCOLZ-1:A.SS$2A.SS$-1:GOSUB 62340:GOSUB 
62380 'Print fld; Set cursor 

61430 RETURN 

61440 ! ***** Ins key pressed ххх 

61450 ! ! Start Ins routine for numeric field on 
leftside of dec pt 

61460 IF TY.SSS(F.SS$)-"N" AND A.SS%<DECPOS% THEN 

MIDS (VL.SS$(F.SS%) ,1)=MIDS(VL.SS$(F.SS%) ,2,A.SS%- 
1)+"O"+RIGHTS (VL.SS$(F.SS%) , LE.SS%(F.SS%)-A.SS%) : GOTO 
61580 

61470 ! ' Start Ins routine for numeric field on 
rightside of dec pt 

61480 IF TY.SSS$(F.SS%)="N"" THEN 
VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS%) ,A.SS3- 

1)+"O"4+MIDS (VL.SS$(F.SS%) ,A.SS%, LE.SS%(F.SS%) -A.SS%) : GOTO 
61580 

61490 ' ' Start Ins routine for non-numeric w/o 
non-edit characters 

61500 IF SPECCHR.SS$(F.SS*)-20 THEN 
VL.SS$(F.SS%) =LEFTS (VL.SS$(F.SS3%) ,A.SS%3-1) +" 

"4+MIDS (VL.SS$(F.SS%) ,A.SS%, LE.SS%(F.SS%) -A.SS%) : СОТО 
61580 

615108! ! Start Ins routine for non-numeric with 
non-edit characters 

61520 NEWVLS$=LEFTS (VL.SS$(F.SS%) ,A.SS$-1) +" " 
NEXTCHRS=MID$ (VL.SS$(F.SS%) ,A.SS%,1) 

61530 FOR IS=A.SS%+1 ТО LE.SS%(F.SS3) 

61540  X.SSS-MIDS(PIC.SSS(F.SS*),I$,1): IF 
INSTR("ULX489",X.SS$)-0 THEN NEWVLS-NEWVL$«-X.SS$ : GOTO 
61579 

61550 NEWVLS=NEWVLS+NEXTCHRS : 
NEXTCHRS=MID$ (VL. SS$(F.SS%) ,I%,1) 

61560 NEXT 1% 
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61570 

ЕЕ БЕО(Е.55%)-МЕЙЛ/І,5--МІр5(УІ,.555(Е.55%),1%-1,ГЕ.55%(Ғ.55%)) 
61580 CURCOL%=CURCOL%-1:A.SS4=A.SS%4%-1:GOSUB 62310:GOSUB 
62380 ' Print fld; Set cursor 

61590 RETURN 

61600 ! ***** END key pressed *****x* 

61610 CURCOL$-LO.SS£(F.SS$,2)-LE.SS$(F.SS$)-1 : 
А.55%=1Е.55%(Е.55%) 

61620 WHILE INSTR("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%,1))=0 


sA.SS4=A.SS%-1: CURCOL%=CURCOL%-1: WEND MT COOK TT Or 
special protected characters 
61630 LOCATE LO.SS%(F.SS%,1) , CURCOL%,1 ' Starting 


position in this field 

61640 RETURN 

61650 ١ **** HOME key pressed **** put cursor at beginning 
of field 


61660 A.SS$-1 mind Cursor position for 
this field 

61670 WHILE INSTR("ULX#89",MIDS$(PIC.SS$(F.SS%) ,A.SS%,1) ) =0 
: А.55%=А.555+1 : WEND ' Look for special protected 
characters 


61680 CURCOL%=LO.SS%(F.SS%,2)+A.SS%-1 

ОШООО LOCATE LO.SS$(F.SS$,1),CURCOL$,1 ' Starting position 
Im this field 

61700 RETURN 

САТО ' 

ЕШ тере " 

*e Je e Je Je e e e de e de e de e de de e e eoe e de eoe de eoe e eoe e e de e de eoe dece dece decode eek 


117207 **** ROUTINE TO EDIT-TEST CHARACTER ENTRY 
kk 


6730 ' 

Ye Je Je Je de Je de e e e e e de de de de de de e ee e de de de e e de de de de de de de de de de de de e be be de ke de de سل‎ kx 

61740 '***Check for special character type conversion*** 
61750 ON INSTR("NDMY",TY.SSS$(F.SS£$)) GOTO 

ОЕ 076 29700 62000, 61950 

61760 ОМ INSTR("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%,1)) GOTO 
раною» 1920 ,62130,61800,62060,62100 

STO PRINT "EDIT PICTURE TYPE 

" sMID$ (PIC.SS$(F.SS%) ,A.SS%,1);" NOT FOUND" : STOP 

61750 ' 

61790 '*** Numeric values; "."; "="; N4"; ١ n 

61800 ' NOTE: The decimal point is trapped in the'Accept 
input data" routine 

61810 IF X.SS$>="0" AND X.SS$<="9" THEN RETURN 


CPO IFT SSS AND Х.555<>"-" АКО Х.555<>" " THEN 
61850 ' Is this a + or - sign? 

TY.SSS(E.SS%5)="C" THEN RETURN * +,-," "W allowed‏ ۲7 ۰۰و5۰ 
anywhere in C type‏ 

61840 IF LEFTS(VL.SS$(F.SS%) ,A.SS%-1) =SPACE$ (A.SS%-1) OR 


A.SS%=1 THEN RETURN 
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61841 ! ня o ngu and "=" 2 ٣۹٤7 
beginning of number 


61850 MSG.SS$z" Only numeric values can be entered here. 
Please re-enter. " 

61860 GOSUB 62180 : RETURN ' Print error message; 
ЕЕ 

61870 ' 


61880 '*** Upper case or any other character*** 

61890 IF ASC(X.SS$)>96 AND ASC(X.SS$)<123 THEN 
X.SSS=CHR$ (ASC (X.SS$) -32) 

61900 GOTO 62130 

61910 '*** Lower case or any other character*** 

61920 IF ASC(X.SS$)>65 АМ АБС) ТЕ 

X.SSS=CHRS (ASC(X.SS$) +32) 

61930 GOTO 62130 

61940 '*** Y/N answer only*** i 
61950 IF Х.8555-"У" ОБ Х.555-"у" ТНЕМ Х.555-"У" ۶۹ء‎ 
61960 IF X.SSS="N" OR X.SSS="n" THEN X.SSS="N" : GOTO 62130 


61970 MSG.SSS$=" Only 'Y' or 'N' can be entered here. 
Please re-enter. " 
61980 GOTO 62180 ' Print error message 


61990 !*** M/F answer only*** 
62000 IF X.SSS="M" OR X.SSS="m" THEN X.SSS="M" ; GOTO 0 
62010 ТЕ X.SSS="E" ОВ Х. 55-Е THEN о GOTO 62130 


62020 MSG.SS$z" Only 'M' or 'F! can be entered here. 
Please re-enter. " 

62030 GOTO 62180 ' Print error message 

62040 ! 

62050 ' *** Numeric values only **** 

62060 IF (ASC(X.SS$)>47 AND ASC(X.SS$)<58) THEN GOTO 62130 
62070 MSG.SSS="" Only numeric values can be entered here. 
Please re-enter. " 

62080 GOTO 62180 ' print error message 

62090 ۲ *** Numeric values and " " only *** 


62100 IF (А5С(Х.555)>47 AND АБС(Х.555) =58) 058555528 
THEN GOTO 62130 


62110 MSG.SSS=" Only numeric values or blanks can be 
entered here. Please re-enter. " 

62120 GOTO 62180 ' Print error message 

62130 RETURN 

62140 ' 

62150 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


! 
print Error Messages ******‏ **** ! 62160 
لہ لو باو باو باو عاو باو باو عاو باو کاو باو لو بلج باو باو باو عاو پار باو پار باو باو باو باو باو باو باو او او لډ و ' 62170 
ERR.MSG$--1 : SOUND 500,SD.SS$*1:LOCATE 25,INT(81-‏ 62180 
LEN(MSG.SS$))/2,0 :COLOR 0,7:PRINT MSG.SS$;: LOCATE‏ 
т0.555в. 655 ,1( СИБСОГЕГИ‏ 
WHILE INKEY$<>"" : WEND ' Clear input buffer‏ 62190 
after error‏ 
RETURN‏ 62200 
' 62210 
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62220 ! kkkkkkkkkkkkkkkkkkkkkkěkkěkkkkkkkkkkkkkkkkkkk 


62230 ' **** Add character to current field ***x* 
62240 ! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
62250 IF TY.SSS(F.SS%)="N" AND NEWNUM% THEN 

MIDS (VL.SS$(F.SS%) ,1)=MID$ (BLNK.SS$,1,A.SS$%- 
1)+X.SS$+". "4STRINGS (LE.SS%(F.SS%) ,"0") : NEWNUM%=0 
RETURN ' Restart fld - New num 

62260 IF TY.SSS(F.SS%)<>"N" OR NUMED.SS%=-1 THEN 
MIDS (VL.SS$(F.SS%) ,A.SS%,1)=X.SS$ : RETURN 


62270 IF LEFTS(VL.SSS$(F.SS%),1)=""" THEN 
MIDS (VL.SS$(F.SS%) ,1,A.SS%) =MID$ (VL.SS$(F.SS%) ,2,A.SS$- 
1)+X.SS$ ELSE NUMED.SS%=-1 : GOTO 62260 ! Add 


character to left of decimal place 

62280 RETURN 

62290 ! 

62300 ХХХ ХХХ یلو‎ x ke kx kx x x عا بل بل‎ x kx x 

62310 '*** Print new value of field ***x 

62320 Ikkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkxk 

5283830 ° 

62340 COLOR CL.SS%(F.SS%,1) ,CL.SS%(F.SS%, 2) ' Set 
Color for this field 

62350 LOCATE LO.SS%(F.SS%,1),LO.SS%(F.SS%,2),0 : PRINT 
DESSSS(F.SS$); ' Print field 

62360 RETURN 

62365 ! 

62370 | اګ‎ Je de e سل سل با يلو يلو يلو يلو يلو يلو سل سل بل بل‎ koe ke e ke سل‎ kx ko xn x x xXx Xxx 

62380 '**** Move cursor to new location ****x 

62390 | Je Je eee oe عا عا يلو يلو يلو يلو سل سل يلو بل لي سل يلو يلو يلو يلو‎ eo e de e ko بل بل ما بل بل له عا بل‎ ЖК 

62400 IF TY.SS$(F.SS%)<>"N" OR NUMED.SS£«»0 THEN 62420 
62410 TE ESERBS(VLISSS(F.SS009 D) «e " THEN NUMED.SSZ--1 
ELSE A.SS¢=DECPOS%-1: CURCOL%=LO.SS%(F.SS%,2)+A.SS%¢-1: LOCATE 
LO.SS%(F.SS%,1),CURCOL%,1 : RETURN 

62415 ! 

62420 IF A.SSS«LE.SS$(F.SS$) THEN 
A.SS%=A.SS%+1:CURCOL%=CURCOL%+1 ELSE GOSUB 61260 : RETURN 
' Advance cursor or go to next field 


62430 IF INSTR("ULX#89",MID$(PIC.SS$(F.SS%) ,A.SS%,1) )=0 
THEN 62420 

62440 TOCATE 109.555) ٧. 555 .), CURCOLZ, 1 

62450 RETURN 

62460 ' 

62470 ! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62480 ' *** Edit check final field result *** 

62490 ! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

S00 ТЕ ТУ. 555 (Е.55%)<>"М" ТНЕМ 62540 ' Check numeric 
input range 

62510 ТЕ VAL(VL.SS$(F.SS%) )>RG.SS(F.SS%,2) THEN 


MSG.SSS="" The maximum value allowed in this field is 
"4STRS (RG.SS(F.SS%,2)): GOSUB 62180 : RETURN 'Print Err 
Msg 


62520 IF VAL(VL.SS$(F.SS%))<RG.SS(F.SS%,1) THEN 
MSG.SSS="" The minimum value allowed in this field is 
"4+STRS(RG.SS(F.SS%,1)): GOSUB 62180 : RETURN 'Print Err 
Msg 

62 ٦ 

62540 IF TY.SS$(F.SS%)<>"D" THEN 62720 ' Date edie 
check 

62550 IF VL.SS$(F.SS$)-" / / " THEN 62720 

' No check 

62560 
DT.SS-VAL(RIGHT$(VL.SS$(F.SS$),2)-«-LEFTS$(VL.SS$(F.SS2),2)4MI 
D$(VL.SS$(F.SS%) ,4,2)) 

62570 TE 
INSTR("01,02,03,04,05,06,07,08,09,10,11,12",LEFT$(VL.SS$(F. 
SS%),2))<>0 THEN 62590 


62580 MSG.SS$="Invalid MONTH in date entered. Please 
re-enter. ":GOSUB 62180 : RETURN 
62590 IF INSTR(MIDS(VL.SSS$(F.SS%) ,4,2)," ")=0 AND 


VAL(MIDS (VL.SS$(F.SS3%) ,4,2))>0 AND. 
VAL (MIDS (VL.SS$(F.SS%) ,4,2))<32 THEN 62620 


62600 MSG.SSS="Invalid DAY in date entered. Please 
re-enter.'':GOSUB 62180:RETURN 

62610 ! 

62620 ТЕ RG.SS(F.SS%,1)=0 AND RG.SS(F.SS%,2)=0 THEN 
62720 ' No check 

62630 IF RG.SS(F.SS$,2)«RG.SSQBOSS S ٣٠٠۷ ۲۲۷۰2 ٥ 
'Does date cross century? 

62640 IF DT.SS>=RG.SS(F.SS%,1) AND 
2Т.55<=ВС.55(Е.555,2) ТНЕН 62720 

62650 Dl.SS$-STR$(RG.SS(F.SS$,1)) : 
D2.SS$=STRS (RG.SS(F.SS%,2)) 

62660 MSG.SSS="The date should be between 


"+MIDS (D1.SS$S,4,2)+"/"+RIGHTS (D1. SSS,2)4"/7'+MiDs (Di. SSS ٦ 
)+" and 

"+MIDS (D2.SS$,4,2)+"/"+RIGHTS (D2.SS$,2)+"/"+MIDS$ (D2.SS$,2,2 
(۰۰6050866 7۲ 


62670 ! 

62680 IF DT.SS>=RG.SS(F.SS%,2) OR DT.SS<=RG.SS(F.SS%,1) 
THEN 62720 

62690 D1.SS$-STR$(RG.SS(F.SS£,2)) 

D2.SS$-STRS$ (RG.SS(F.SS%,1)) 

62700 MSG.SSSz'"The date should be between 


"+MID$(D1.SS$,4,2)+"/"+RIGHTS (D1.SS$,2)+"/"4+MID$(D1.SS$,2,2 
у" апа 

"+МТО$ (02.$5$,4,2)+"/"+ВТСНТ$ (02.$$$,2)+"/"+МтТО$ (02.55$,2,2 
) :GOSUB 62160 : RETURN 


6 ٣۳ 

62720 RETURN 

62860 ' "kk k kx kx kx à kx kx بل‎ e e e e e e e nece nece ce ne nece nece nece nece e ce ke ke ck ck ck لد جار با پا جار‎ ko ko k k 
62870 ' ** Test If Monochrome or Color/Graphics Monitor ** 
62880 ! žžkšžkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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62890 DEF SEG=&H40 

62900 MONO.SS=(PEEK(&H10) AND &H30)=&H30 

62910 IF MONO.SS THEN SCRNSEG.SS$-&HBOOO ELSE 
SCRNSEG.SS%=&HB800 

62920 RETURN 

62930 ! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

62940 ١ ** Error Handling Routine ** 

کہ کر اج کاو اج کاو کاو کاو باج باج باج باج باج باج با باو باج باو باج با لج با لډ لو با ХХхАХхХх‏ ! 620950 

62960 ' This routine is used mostly to turn the screen 
display back on if 

62970 ' a serious problem (such as the screen image file 
Weemeound) occurs. 


62980 CLS:OUT &H3D8, &H29 ' Turn screen display BACK 
IIT off). 
62990 'The following checks for disk 


file errors ! 

63000 IF NOT (ERR=53 OR ERR=57 OR ERR=66 OR (ERR>70 AND 
ERR<77)) THEN 63030 

63010 LOCATE 10,1:PRINT'"There is a problem finding a 
file on the disk. Error code="+STRS$ (ERR) 

63020 EOCATE I11 J  PRINTU(HINT: Check disk for .SCR 
miele)": PRINT 

63030 ON ERROR GOTO 0 ' Reset BASIC ERROR handling 
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10 'яккжжжжжжж ROUTE FILE LOADING PROGRAM *ххххххххх 

12 SCREEN 0,1,0,0:CLS:CONTROL-20 

15 ON ERROR GOTO 150 

20 LOCATE 2,1:PRINT "THE FOLLOWING ROUTES ARE CURRENTLY ON 
FILE:": PRINT 

30 LOCATE 4,1:FILES 'x" 

40 LOCATE 23,1:INPUT "ENTER THE FILENAME HERE ==> ",ROUTES 
45 LABEL-1 

60 OPEN ROUTES FOR INPUT AS #1 

65 LOCATE 14,20:PRINT "-W-LOADNOTE,NOWAIT/" 

70 ТМРОТ #1, М 

80 FOR I-1 TO N:FOR J-1 TO 8:INPUT 81,МАУРАТА(І,С):МЕХТ 
J:NEXT I:CLOSE #1 

90 DISPLAYS=ROUTES+".WPT" 

100 OPEN DISPLAYS FOR INPUT AS #1 

110 INPUT #1,N 

120 FOR I-1 TO N:FOR J- 1 TO 3:INPUT $1,WAYPTS(I,J):NEXT 
J:NEXT I:CLOSE #1 

122 GEODATAS=ROUTES+". CHA" 

124 OPEN GEODATAS FOR INPUT AS #1 

125 INPUT #1,GEOLATS,GEOLONGS ,MVARTYPES:CLOSE #1 

130 PRINT "~C=LAST/";:CHAIN "BOTHALF",6800,ALL 

150 IF ERR=53 THEN LOCATE 1,1:PRINT "~W=FILEERR/": SCREEN 
0,1,3,0:INPUT CONTROL 

160 IF ERR-52 THEN LOCATE 1,1:PRINT "~W=NAMEERR/":SCREEN 
0,1,3,0:INPUT CONTROL 

162 IF ERR-76 THEN LOCATE 1,1:PRINT "-W-NAMEERR/":SCREEN 
0,1,3,0:TNPUT CONTROL 

164 IF ERR-64 THEN LOCATE 1,1:PRINT "-W-NAMEERR/":SCREEN 
0Opl 3,0: DNEUTCCONLDIEOE 

170 SCREEN 0,1,0,0:IF CONTROL-1 THEN RESUME 10 

175 ON ERROR СОТО 0 

180 END 
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'ххххх РКОСКАМ TO ZERO NAVDATA AND WAYPTS ARRAYS ***хх 
FOR I-2-1 TO 9:FOR J-1 TO 9:NAVDATA(I,J)20:NEXT J:NEXT I 
FOR I=1 TO 9;:FOR J-1 TO 3:WAYPTS(I,J)20:NEXT J:NEXT I 
TOTALDIST=0:CHAIN "BOTHALF",6663,ALL 

END 
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АРРЕМОТХ В 


TACTICAL COMPUTER AIDED MISSION PLANNING SYSTEM 


USER MANUAL 


WHAT IS COMPUTER AIDED TACTICAL PLANNING? 


INTRODUCTION 


This program was designed to assist pilots with 

tactical mission planning in three ways: 

1. Compute aircraft performance parameters for all 
phases of the mission, both high and low altitude. 
This includes display of the maximum range profile 
and the maximum range performance for a selected 
altitude, and allows a side by side comparison of 
maximum range mission requirements. 

2. Provide the ability to enter, edit, and store on 
disk, many different low level routes, each 
defined by up to a maximum of nine (9) lat/long 
navigation points. These routes may later be 
recalled for performance computations. Routes of 
more than nine points can be planned in one of two 
Ways: 

A. Make two separate runs of the entire 
program. 
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B. Following jet log completion, select 
the option to calculate another route, 
then enter the route and continue with 
the program. Low level performance will 
be computed using previously input 
aircraft performance parameters and 
computed performance. 

3. Combine the low level performance computations 
with lat/long route data, and automatically 
prepare a completed jet log for the low level 
route. | 

The program supplants the time consuming requirement 

to trace سس‎ ОП NATOPS charts to obtain aircraft 
performance data, compute aircraft performance and mission 
requirements, measure low level route navigation data, and 


finally compute a jet log. 
USES FOR COMPUTER AIDED TACTICAL PLANNING 


The primary uses for a computer based mission 
planning system are to save time and allow a range of 
tactical options for consideration that would not be 
possible with manual calculation. Additionally, computed 
aircraft performance data must be at least as accurate as 
data obtained from the NATOPS charts, offering these 
tactical options with complete and consistent accuracy. 


Accurate fuel management, beginning at the mission 
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planning phase, results in more training per flight hour 
and more tactical options available per mission than is 
presently available with manual calculations. With this 
program, planners could build a file of low level routes 
to a target. Current intelligence information could be 
collected and utilized much longer, with tactical 
decisions regarding route, altitudes, and target selection 
made much later and closer to actual launch times. These 
tactical decisions coula ре based upon weather 
considerations, target options, information regarding 
enemy defenses, or political я Additionally, 
accurate launch position information could be used to 
compute more accurate mission fuel requirements. For the 
training environment, use of this program can provide 
significantly better fuel management, reduced costs per 
flight hour, and thus more effective training per flight 
hour. Tradeoff studies in mission requirements, based on 
altitude, speed, fuel required, and time, may also be 


easily conducted. 


SYSTEM REQUIREMENTS 


l. An IBM PC, PCXT, PCAT, Portable or any true 
compatible. 

256K RAM. 

A double density disk drive or a hard disk drive. 
Any 80 column display, color or monochrome. 

DOS 2.0 or higher. 


ль шом 


WARNING: Always run this program with no other memory 
resident software installed. The only exception со 77+ 


running the program from a RAMDISK. The RAMDISK must be 
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created BEFORE copying this program to the disk 


and 
running this program. 
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RUNNING THE PROGRAM FROM A RAMDISK 


1. System RAM of 640K total is required. 

2. Create the ramdisk of size at least 360K. 

3. Copy the program disk to the ramdisk using the 
*.* method. 

4. On the ramdrive prompt C» type the batch filename 
to start the program, RAMPLAN. 

5. Be sure to file route data using B:filename 


HOW DOES THE PROGRAM WORK? 


There are four (4) sections to the complete program. 
The MAXIMUM RANGE COMPUTER section. 

The TAKEOFF and HIGH ALTITUDE CRUISE section. 
The LOW LEVEL CRUISE AND JET LOG section. 

The LAT/LONG COORDINATE EDITOR section. 


PUNH 


MAXIMUM RANGE COMPUTER SECTION 


This section requires 6 inputs, and is a stand alone 
program. This means that the program is run conpletely 
Separate from the other programs, and results from this 
program are not automatically transfered to any other 
program. In contrast, all the remaining sections are 
interconnected. 

Following the data inputs, aircraft maximum range 
performance is computed at the altitude for maximum range, 
and at an alternate altitude which. the user specifies. 
Mission time, fuel, and speeds are computed for a mission 
distance the user specifies. Results can be compared side 
by side. Maximum endurance performance is also presented. 
This information can be used to select actual mission 
altitudes, and input to the other sections. 
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БӘБЕОЕР АМО) HIGH ALTITUDE CRUISE SECTION 


This section requires 11 inputs regarding aircraft 
and desired operational parameters. Aircraft performance 
is then computed and displayed. The program is designed to 
output this performance in a form most easily utilized by 
pilots. There is no attempt made to "micro-manage" the 
planning process by completely computerizing the entire 
navigation route. The program is intended to be tactically 
utilized, to be useful in any environment which may 
precede the low level ingress route. Carrier based Navy 
and Marine Corps aircraft often launch and complete a 
rather lengthy procedure of rendezvous, tanking, and 
tactical formation. Much of the high altitude navigation 
Mate may be open ocean, thereby negating the usefulness 
of any high altitude route planner. A feature such as this 
would complicate the user interaction and result in a less 
useful program. 

Following the data inputs, aircraft performance is 
computed for the TAKEOFF, CLIMB, CRUISE, and DESCENT 


mission phases. 
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LOW LEVEL CRUISE AND JET LOG SECTION 


This section embraces three (3) low level operational 
features. 
1. Lat/long coordinate editor. 
2. High or Low level performance computations. 
3. Completed jet log. | 
The user may choose to enter lat/long data manually 
or from a file. With manual entry, latitude and longitude 
are entered, along with magnetic variation at each 
navigation point. The route may then be filed. The user 
may choose to build another route, or continue with 
performance calculations for the route just entered. 
Computed high or low level performance is combined with 
the navigation route information, high or low level, to 


produce a completed jet log. 


LAT/LONG COORDINATE EDITOR 


This section, while included in the LOW LEVEL CRUISE 
AND JET LOG section, may also be selected independently 
from the low level planning section. Performance 
computations are not made here, however, distance and 
heading information are presented for each route computed. 
This section is primarily used to build a file of high or 
low level routes. Since ANY navigation route can be 


constructed and filed, this section is well.suited to aid 
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the planner in the navigation computations required for 


the high altitude routes. 
GETTING STARTED 


This section will describe how to start the program 
on either an IBM PC/XT/AT or a true compatible such as a 
COMPAQ, AT&T PC 6300, or ZENITH 150 or 248. Each data 
input/output screen will be discussed and explained. Pay 
particular attention to the NOTES and WARNINGS which will 
attempt to prevent the user from becoming frustrated with 


the program. 
STARTING THE PROGRAM 


Insert the program disk into drive A:, close the 
drive door, turn on the monitor, and then the computer 
power switch. Highlight the type of machine you are using 
from the menu using the arrow direction keys on the 
numeric keypad, followed by hitting the ENTER key to make 
the selection. Then highlight which group of programs you 
want to run, either the Maximum Range Computer or the 
Mission Planning programs, followed ру hitting the ENTER 


key to make the selection. 
INTRODUCTION TO THE MAXIMUM RANGE COMPUTER 


There is no introductory screen for this section. The 


first screen displayed will ask for data entry. The second 
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screen displayed will contain all of the results of the 


computations. 
WHAT YOU NEED TO GET STARTED PLANNING 


The following information will be asked for in the 
data input screen, and therefore should be available 
initially upon starting the program. 


* Gross Weight At Takeoff 

Drag count for Mach Number 0.6 

* Desired Altitude for comparison to the optimum 
altitude for maximum range. 

* A Cruise Leg Distance 

Takeoff Temperature in Degrees Fahrenheit 

* Cruise Headwind or Tailwind 


* 


* 


DATA OUTPUT SCREEN 


There is only one Data Output Screen containing the 
following information based on the input data: 


Screen 41 - Computed Performance at the optimum altitude 
for maximum range: 
* Optimum Cruise Altitude 

Max Range Mach Number 

Specific Range in lb/nm 

Cruise Leg Time 

Cruise Leg Fuel 

True Airspeed and Ground Speed 


+ + * * ж 


- Computed Performance for maximum range 
possible at the desired altitude: 
* Optimum Cruise Altitude 

Max Range Mach Number 

Specific Range in lb/nm 

Cruise Leg Time 

Cruise Leg Fuel 

True Airspeed and Ground Speed 


+ + + + ж 
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- Computed performance at the altitude for 
maximum endurance: 
* Optimum Endurance Altitude 
* Optimum Endurance Mach Number 
* Optimum Endurance Fuel Flow in lb/hr 


NOTE: These optimum endurance numbers are 
computed for a relatively heavy gross 
weight. The computed performance is 
therefore tactically useful in 
determining the optimum rendezvous and 
323٦107 16160 ٠ 
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This is a series of screens to explain how the 
program ls structured. Ror new users, read the 
introduction, and select option 1: "output to the screen 
only", at the end of the introduction. Experienced users 


should select option 2 or option 3. 


WHAT YOU NEED TO GET STARTED PLANNING 


The following information will be asked for in the 
first data input screen, and therefore should be available 
initially upon starting the program. 


* Runway Takeoff Temperature in Degrees 
Fahrenheit. 

Runway Pressure Altitude 

Takeoff Gross Weight 

Runway Length 

ШЕСЕИЕСИПЕ EOI Mach Пшпрегв 0,6, 0.7, 0.8, 0.9. 
Desired Cruise Mach Number 

Desired Cruise Altitude 

Headwind or Tailwind 

Altitude at Start of Descent in MSL 
Altitude at End of Descent in MSL 
Takeoff Fuel Load 


+e eee BR ×× × × پر‎ 
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DATA INPUT SCREEN 


Enter the above data for your flight by typing in a 
value, then pressing the ENTER key, repeating this for all 
the values. Default values are displayed, and you may 
select these by simply putting the cursor on the value, 
and pressing the ENTER key. Drag count data may be found 
in NATOPS section 11, or in Appendix A of this user guide. 
To use Appendix A, compute the drag count for mach number 
0.6 only from the NATOPS tables. Then proceed to Appendix 
A and simply read the drag count for the mach numbers 0.7 
through 0.9. Input these drag counts to the Data Input 


Screen. 
DATA OUTPUT SCREENS 


There are five (5) Data Output Screens containing the 
following information based on the input data: 
Screen #1 - Takeoff Configuration of the aircraft. 


Screen £2 - Computed Takeoff Performance with and without 
double datum: 
* Ground Roll Distance 
* Takeoff Speed 
* Refusal Speed 


Screen #3 - Computed Climb Data using the NATOPS maximum 
range profile approximations: 
* Climb Speed 

Climb Mach 

Climb Time 

Climb Fuel Required 

Distance Covered in Climb 


* * * * 


0110 


Screen #4 


Screen #5 


- Computed Cruise Data for the input parameters: 
* Ambient Temperature 

Fuel Flow 

Specific Range іп 1р/пп 

Ground Speed 

True Air Speed 


+ + + + 


- Computed Descent data for the input parameters 
and for a minimum fuel profile: 
* Descent Fuel Used 

Distance Covered 

Descent Time 

Descent Speed 


жж ж 


MISSION PLANNING OPTIONS 


Select one of the three options: 


- LOW LEVEL ROUTE PLANNER - 
* Manually enter a route, edit the route, 


file the route, compute performance and a 
jet log for the route. 

Load a route from a file, and compute 
performance and a jet log for the route. 
NOTE: CAN NOT EDIT ROUTES LOADED FROM 

A FILE. 


- ENTER ONLY LAT/LONG DATA - 


* 
* 


* 


* 


Manually enter, edit, and file a route. 

May repeat this procedure for multiple 

route entry and filing. 

Distance and Heading information is 

presented. 

NOTE: NO AIRCRAFT PERFORMANCE OR JET LOG 
IS COMPUTED. 


Aone. DOS = 
* NOTE: BE SURE TO SAVE THE ROUTE BY FILING 


IT BEFORE YOU EXIT THE PROGRAM! 


LOW LEVEL ROUTE PLANNER 


THIS 


section will be discussed here in more detail, 


and will include discussions of the other options in this 


section. 


Screen #1 


- Low level data input form: 


LLI 


* Type in a value, followed by pressing the 
ENTER key. Three values are requested. 


1. Low Level Altitude in MSL 
2. Low Level Speed (Kts. Ground Speed) 
3. Beginning Fuel State for the Route 


* WARNING: BE SURE TO ENTER LOW LEVEL 


ALTITUDE AS MSTD | 
* NOTE: The Low Level Altitude may be as 

high as 45000 feet MSL. Therefore, 
typical cruise altitudes may be 
entered. When combined with a high 
altitude navigation route entered 
in the next section, a cruise leg 
jet log may be produced. Simply run 
the Mission Planning program again 
to compute the low level route 
Portion. 


Screen #2 - This shows the format for lat/long data entry 
as DEG.MIN.SEC and requests the following: 

North or South Latitude (М ог 5) 

East or West Longitude (E or W) 

East or West Magnetic Variation (E or W) 

Number of points to enter (2 to 9) 


х 
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Screen #3 - Lat/Long data input uses the following 
sequence: 
* Type the value of the latitude DEGrees, 
then press the ENTER key. 
= * Type the value of the latitude MINutes, 
then press the ENTER key. 
* Type the value of the latitude SEConds, 
then press the ENTER key. 
* Repeat this sequence for the longitude 
values. 
* Type the value of the magnetic variation 
as simply a number. NO PLUS OR MINUS 
SIGNS. NO EAST (E) or WEST (W). 


- EDITING DATA BEFORE PRESSING THE { ENTER } KEY: 
* Position the cursor over the incorrect 


value, type the correct value, press the 
ENTER key. 


- EDITING DATA ALTER В КБУ МУ EE CELE ES 
* Continue entering the remaining points. 


Following this, you will be given the 
opportunity to edit any incorrect points. 


- FILING DATA - 


тд 


* Respond to program requests. 
* WARNING: Provide only filenames of 8 
characters or less. DO NOT TYPE 


ANY EXTENSIONS (example: . ПАТ) 


* See the following Note To Experienced 
Users for more filing details. 


MOTE LO EXPERIENCED USERS 


Data is filed according to the fully qualified 
filename definition, however, in NO CASE SHOULD A USER 
SPECIFY A FILENAME THAT INCLUDES AN EXTENSION. Data may be 
filed on the B: drive to a separate data disk. Route files 
are very small, approximately 1K in size, and there is 
approximately 20K of disk space available on the program 
disk which can store about 20 route files. The user may 
desire to store classified or otherwise sensitive routes 
on a separate data disk in the B: drive, which then may be 
afforded the appropriate degree of security, or to store 
all route files on a spearate data disk. To accomplish 
this, simply respond to the requests for filenames with a 
more complete filename. For an example, the user would 
type B:IR203 in response to the requests, instead of 
Simply IR203. To erase files from the program disk, use 
the DOS command { ERASE filename.* } and substitute the 


actual name of the route for the filename. 
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Screen $4 - Output screen of computed navigation data. 
Screen #5 - Computed low level aircraft performance data. 
Screen #6 - Completed low level jet log. 


FINAL OPTIONS 


To compute a return profile, the program will begin 
at the beginning, with the data input form. All values 
must be entered, even though there is no takeoff to be 
made. The user must tolerate the takeoff computations and 
display, in order to obtain accurate return profile 
performance. This method actually allows re-entry of 
important aircraft configuration, weight, drag, ٣٦ 
information that most certainly has changed from the 
ingress parameters. The. result is very accurate return 
profile performance data. 

Calculation of another route will use the input data 
already provided and performance data already computed in 


completing the navigation data and jet log. 
ERRORS 


Most errors will be intercepted, allowing the user to 
repeat some action correctly and continue with the 
program. Two most common errors may occur: 

1. Responding to a request for a letter by typing a 
number. In this case, the number will be accepted, 
however, the program will probably fail 
shortly thereafter. In this case, start the 
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program again by pressing the CTRL-ALT-DEL 
keys simultaneously. | 

Responding to a request for a number by typing 
a letter. In this case, the user will see the 


following message on the monitor screen: 
?Redo from start 


Although this looks bad, there is an easy 
solution. Simply type the correct response, press 
the ENTER key, and continue with the program. If 
the screen display and cursor location do not line 
up for proper data entry, or the program isn't 
running correctly, then press the CTRL-ALT-DEL 
keys simultaneously to start the program over from 


the beginning. 
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QUICK START REFERENCE INSTRUCTIONS 


Many people would like to start using a program 
without reading the instructions, or bothering with the 
details of program operation. This quick reference guide 


has been prepared for this purpose. 
LOADING AND STARTING THE PROGRAM 


Insert the program disk into drive A:, close the 
drive door, turn on the monitor, and then the computer 
power switch. Highlight the type of machine you are using 
from the menu using the arrow direction keys on the 
numeric keypad, followed by hitting the ENTER key to make 
the selection. Highlight the MAX RANGE COMPUTER, followed 
by hitting the ENTER key to make the selction. Follow the 
on screen instructions. After returning to the main 
program selection menu, highlight the MISSION PLANNING 
option followed by hitting the Enter key to make the 
selection. Then hit the ENTER key again to select the 
"READ A SHORT INTRO TO THE PROGRAM" option from the 
mission planning menu. Follow the on-screen instructions 
carefully. Proceed slowly and patiently the first time 
through, taking time to read each screen fully, and to 
read the associated help screens that appear as different 
options are highlighted with the arrow direction keys on 


the numeric keypad to the right of the keyboard. Decide on 
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an option, highlight the option, then hit the ENTER key to 


make the selection. 
DATA ENTRY FORMS 


Type in the correct value asked for in a block, 
followed by m ue the ENTER key. Some blocks, when they 
are filled, will automatically enter the value and place 
the cursor at the next block, waiting for data to be 
entered. If this occurs, simply continue entering the data 
for the block containing the cursor, and go on with the 
program. This is designed to save time. Repeat for all the 


blocks. 


LAT/LONG DATA ENTRY 


Type in a value for the DEGrees, then press the ENTER key. 
Type in a value for the MINutes, then press the ENTER key. 
Type in a value for the SEConds, then press the ENTER key. 
Type in a value for the MAGnetic VARiation, then press the 
ENTER key. 


Repeat for all the data points. 


EDITING 


ӘБЕС DATA BEFORE PRESSING THE (ENTER) KEY: 
* Position the cursor over the incorrect 
value, type the correct value, press the 
ENTER key. 
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- EDITING DATA AFTER FRESS IIS TIE (ЕНЕ ЕЕ 
* Continue entering the remaining points. 


Following this, you will be given the 
Opportunity to edit any incorrect points. 
- FILING DATA - 
* Respond to program requests. 
* WARNING: Provide only filenames of 8 


characters or less. DO NOT TYPE 
ANY EXTENSIONS (example: 


FINAL OPTIONS 


To compute a return profile, the program will begin 
at the beginning, with the data input form. All entries 
must be made, even though there is no takeoff to be made. 
The user must tolerate the takeoff computations and 
display, in order to obtain accurate return profile 
performance. This method actually allows re-entry of 
important aircraft configuration, weight, drag, and fuel 
information that most certainly has changed from the 
ingress parameters. The result is very accurate return 


profile performance data. 
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APPENDIX C 


DRAG COUNT REFERENCE TABLE 


0.6 0.7 0.8 0.9 
K ооо DRAG COUT a = => 
20 21 30 52 
21 22 ST 25 
22 23 33 58 
23 24 34 60 
24 25 36 63 
25 27 37 66 
26 28 38 68 
27 29 40 71 
28 30 41 73 
219 31 43 76 
30 32 44 79 
31 33 46 821 
32 34 47 84 
33 235 49 86 
34 36 50 89 
35 37 52 2/7) 
36 28 53 94 
37 29 55 97 
38 40 56 100 
39 41 58 102 
40 42 29 105 
41 43 61 107 
42 45 62 110 
43 46 64 113 
44 47 65 ELS 
45 48 67 118 
46 49 68 121 
47 50 70 Tos 
48 51 71 126 
49 52 73 128 
50 53 74 1 د‎ ٢ 
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DRAG COUNT REFERENCE TABLE 


0.6 0.7 0.8 0.9 
===> >-> DRAG COUNT ------------- 
50 53 74 T3 
51 54 25 134 
52 55 27 136 
53 56 78 135 
54 57 80 141 
55 58 1 144 
56 59 83 147 
57 60 84 149 
58 61 86 152 
59 63 87 155 
60 64 89 27 
61 65 90 160 
62 66 92 162 
63 67 23 165 
64 68 ED 168 
65 69 6 170 
66 70 os 173 
67 ZL 99 176 
68 72 ЖОЛ. 178 
69 73 102 181 
70 74 104 183 
71 75 105 186 
12 76 107 1559 
73 77 108 TI 
74 78 1 ١0 14 
75 80 9 11 197 
76 81 و1 72 ۔‎ 
77 82 114 202 
78 83 115 204 
79 84 7 207 
80 85 118 210 
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DRAG COUNT REFERENCE TABLE 


0.6 0.7 0.8 0.9 
виро ОКМОТ eee سے کا ا‎ 
80 85 118 210 
Sr 86 120 212 
82 87 121 215 
83 88 123 217 
84 89 124 220 
85 90 126 223 
86 5 1 127 225 
87 92 129 228 
88 ENS 130 231 
89 94 ١ سن‎ 253 
20 25 15:3 236 
EI 96 135 238 
92 98 136 241 
33 39 138 244 
94 100 9 246 
25 TOL 141 249 
26 102 142 252 
97 LOS 144 254 
98 104 145 257 
99 13 147 259 
100 106 148 262 
101 107 149 265 
102 108 51 267 
103 1:09 152 270 
104 110 154 272 
105 1 155 275 
106 112 157 278 
107 Tug 159 280 
108 114 1-20, 283 
109 116 161 286 
1 1 117 163 288 
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DRAG COUNT REFERENCE TABLE 


0.6 0.7 0.8 ong 
=5 اک ت‎ DRAG СОПНТ --------------- ا کی‎ = 
110 TEZ 163 288 
1171 118 164 291 
1 2 113 166 293 
TES 120 167 296 
114 121 T69 299 
ДЕБ 122 170 SO 
116 123 172 304 
TI 7 124 273 307 
18 125 175 309 
1193 126 176 312 
120 12 7 178 314 
1271 128 179 317 
22 129 dr 320 
123 130 182 322 
124 131 184 325 
125 133 185 з28 
126 134 186 330 
127 135 188 333 
128 136 159 835 
229 137 91 338 
1:20 138 192 341 
151 155 194 343 
132 140 95 346 
шаз 141 37د‎ 348 
134 142 198 351 
ЦО 315 143 200 354 
136 144 201 2356 
157 145 203 359 
138 146 204 362 
1:39 147 206 364 
140 148 207 567 
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DRAG COUNT REFERENCE TABLE 


39 0.8 0.7 0.6 
مه سا هساک و ته ВЕ И mmm м о‏ مر سا مو وما ماما هنام Ыы‏ 
367 207 148 140 
369 209 149 141 
372 210 51“ 142 
375 212 152 143 
377 213 153 144 
380 215 154 145 
383 216 155 146 
385 218 156 147 
8 د 219 157 148 
390 221 158 149 
393 222 150 150 
396 223 160 151 
398 225 161 152 
400 226 162 03 
400 228 163 154 
400 229 164 155 
400 281 165 156 
400 232 166 07 
400 234 167 18 
400 255 169 159 
400 2-7 170 160 
400 238 171 161 
400 240 172 2 
400 241 173 163 
400 243 174 164 
400 244 1715 165 
400 246 176 166 
400 247 177 157 
400 249 178 168 
400 250 179 169 
400 252 180 170 
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DRAG COUNT REFERENCE TABLE 
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170 180 252 400 
171 181 253 400 
Ty 182 255 400 
73 183 256 400 
174 184 258 400 
175 186 259 400 
176 187 260 400 
177 188 262 400 
178 189 263 400 
1:79 190 265 400 
180 191 266 400 
181 qo 268 400 
182 193 2159 400 
183 194 21 400 
184 195 272 400 
185 1916 274 400 
186 197 275 400 
187 198 277 400 
188 199 278 400 
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190 201 281 400 
191 202 283 400 
192 204 284 400 
193 205 286 400 
194 206 287 400 
195 207 289 400 
196 208 290 400 
197 209 292 400 
198 210 293 400 
199 211 295 400 
200 212 296 400 
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200 212 296 400 
201 213 297 400 
202 214 299 400 
203 5ے‎ 300 400 
204 216 302 400 
205 217 303 400 
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207 219 306 400 
208 220 308 400 
209 222 309 400 
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2-11 224 312 400 
212 225 314 400 
213 226 315 400 
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2 7 291 331 400 
238 252 5152 400 
239 253 354 400 
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241 295 557 400 
242 257 358 400 
243 258 360 400 
244 255 331 400 
245 260 363 400 
246 261 364 400 
247 262 366 400 
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249 264 369 400 
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262 278 388 400 
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265 281 392 400 
266 282 394 400 
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274 290 400 400 
275 292 400 400 
276 293 400 400 
277 294 400 400 
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280 297 400 400 
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285 302 400 400 
286 303 400 400 
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289 306 400 400 
290 307 400 400 
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290 307 400 400 
21 308 400 400 
292 511110, 400 400 
293 311 400 400 
294 312 400 400 
295 د3‎ 3 400 400 
296 314 400 400 
297 315 400 400 
298 21135 400 400 
299 217 400 400 
300 519 400 400 
301 3219 400 400 
302 320 400 400 
303 EE 400 400 
304 322 400 400 
305 323 400 400 
306 324 400 400 
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308 326 400 400 
309 328 400 400 
310 329 400 400 
311 зво 400 400 
312 331 400 400 
515 332 400 400 
314 333 400 400 
32315 334 400 400 
316 335 400 400 
317 336 400 400 
319 297 400 400 
289 335 400 400 
320 gu 400 400 
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320 339 400 400 
321 340 400 400 
222 341 400 400 
223 342 400 400 
324 343 400 400 
325 345 400 400 
526 346 400 400 
27 347 400 400 
328 348 400 400 
329 349 400 400 
330 350 400 400 
ES 351 400 400 
232 952 400 400 
33 353 400 400 
334 354 400 400 
253b 555 400 400 
336 556 400 400 
237 23957 400 400 
2 9 259 400 400 
339 359 400 400 
340 360 400 400 
341 361 400 400 
342 363 400 400 
343 364 400 400 
344 365 400 400 
345 366 400 400 
346 867 400 400 
347 368 400 400 
348 259 400 400 
349 370 400 400 
250 371 400 400 
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400 400 3721 350 
S 372 400 400‏ 
400 400 73د 352 
400 400 374 359 
400 400 375 354 
400 400 376 355 
400 400 377 356 
400 400 378 357 
400 400 379 358 
400 400 381 359 
400 400 382 360 
400 400 383 361 
400 400 384 362 
400 400 385 363 
400 400 386 364 
400 400 387 365 
400 400 388 66 3 
400 400 389 د 
400 400 390 368 
400 400 291 369 
400 400 392 3:70 
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400 400 395 373 
400 400 396 374 
400 400 595 375 
400 400 399 376 
400 400 400 377 
400 400 400 378 
400 400 400 379 
400 400 400 380 
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380 400 400 400 
381 400 400 400 
382 400 400 400 
383 400 400 400 
384 400 400 400 
385 400 400 400 
386 400 400 400 
387 400 400 400 
388 400 400 400 
389 400 400 400 
390 400 400 400 
2391 400 400 400 
392 400 400 400 
393 400 400 400 
394 400 400 400 
395 400 400 400 
396 400 400 400 
397 400 400 400 
398 400 400 400 
399 400 400 400 
400 400 400 400 
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АРРЕМОТХ р 


SAMPLE TACTICAL PLANNING PROBLEM 


A-7 NATOPS PROBLEM 


An international incident has occurred which necessi- 
tates the rapid protection and extraction of U.S. military 
personnel within the strife stricken country. 


You are the Commande wf an A-7E squadron and have been 
given the task of planning and conducting the missions in 
support of the extraction of the U.S. personnel. Given the 
following information, determine the greatest distance 


from the target at which you could launch and return to the 
same take-off point. 


l. Fuel Load - 14,000$ (2,0004 in each aero I D) 
2. Ordnance Load 
a. 1 AGM-45 (Skrike) on Sta #1 and Sta #8 
b. 3 МК-20 (Rockeye) on Ter on Sta #2 
с. l Aero I D (Full JP5) on Sta #3 са зса ود‎ 
d. 1 AIM 9D (Sidewinder) on Sta #4 and Sta #5 
e. 3 MK-83 (LDG?) on Ter on Sta #7 
3. Basic Aircraft Weight - 21,0008 
4. Area temperature at sea level - 30?C 
5. Use 300# fuel for Start/Taxi/Catapult 


6. Rendezvous at 10,000' and 25 NM = use 800% fuel during 
rendezvous 


7. Descend from cruise altitude to target 
a. Descend to 12,000' 
b. Use 2,700#/Hr fuel flow 
с. Maintain 370 Kts ground speed 
d. Begin descent at 40 NM 


8. Enroute winds are forecast 
а. То the target - 40 Kts headwind 
b. Return to ship - 70 Kts tailwind 
с. Descents - no wind 


9. Use 2,000# fuel in target area 


l0.  Expend the following ordnance 
а. 2 АСМ-45 
b. 3 МК-20 
с. 3 мк-83 


а. Retain all other racks, ordnance, tanks 


ll. Climb to cruise altitude for return will be from sea 
level. 


12. Plan for Charlie on arrival with 1,000# internal fuel 
on the ball. 
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